diff --git a/App_Code/ClsCRM.vb b/App_Code/ClsCRM.vb index 334a04744..5db431cb1 100644 --- a/App_Code/ClsCRM.vb +++ b/App_Code/ClsCRM.vb @@ -724,11 +724,11 @@ Public Class ClsCRM .Add("@CveUsuarioIng", SqlDbType.Int).Value = CveUsuarioIng .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue + .Add("@CveAcercamiento", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With Try SqlAdapter.Fill(Data) - _CveAcercamiento = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString().ToEntero() + _CveAcercamiento = SqlAdapter.SelectCommand.Parameters("@CveAcercamiento").Value.ToString().ToEntero() Catch ex As Exception OnError("Ocurrió un error al agregar el Acercamiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try @@ -1096,7 +1096,7 @@ Public Class ClsCRM #End Region #Region "Asignar Vendedor a Prospectos" - Public Function GetProspectosPorAsignarVendedor(CveEmpresa As Integer, Optional Empresa As String = "-1", Optional CveSubProyecto As Integer = -1, Optional CveGiro As Integer = -1) As Boolean + Public Function GetProspectosPorAsignarVendedor(CveEmpresa As Integer, Optional Empresa As String = "-1", Optional CveSubProyecto As Integer = -1, Optional CveGiro As Integer = -1, Optional TipoAsignacion As Integer = 0) As Boolean Dim retorno As Boolean = False DataAdapter("PA_CRM_GetProspectosPorAsignarVendedor", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters @@ -1104,6 +1104,7 @@ Public Class ClsCRM .Add("@Empresa", SqlDbType.NVarChar).Value = Empresa .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveGiro", SqlDbType.Int).Value = CveGiro + .Add("@TipoAsignacion", SqlDbType.Int).Value = TipoAsignacion End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 47bb3a961..c30973073 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -3426,6 +3426,19 @@ Public Class ClsGenerales Return Retorno End Function + + Public Function GetCartaPorteTiposRemolques() As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_CP_TiposRemolqueGet") + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los tipos de remolque de carta porte.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + #End Region @@ -3835,7 +3848,8 @@ Public Class ClsGenerales End Function Public Function AddInvEntregaAlmacenRuta(CveSubProyecto As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveMovimientoAlmacen As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, FechaLlegada As DateTime, Tipo As String, - FolioReferencia As String, Referencia As String, FechaLimite As Date, Orden As Integer, Estatus As Integer, Distancia As Integer) As Integer + FolioReferencia As String, Referencia As String, FechaLimite As Date, Orden As Integer, Estatus As Integer, Distancia As Integer, Optional ConfigCartaPorte As String = "-1", + Optional CveCamionRemolque1 As Integer = -1, Optional CveCamionRemolque2 As Integer = -1) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Inv_EntregaAlmacenRutaAdd") @@ -3858,7 +3872,9 @@ Public Class ClsGenerales .Add("@FechaLimite", SqlDbType.DateTime).Value = FechaLimite - + .Add("@CveCamionRemolque1", SqlDbType.Int).Value = CveCamionRemolque1 + .Add("@CveCamionRemolque2", SqlDbType.Int).Value = CveCamionRemolque2 + .Add("@ConfigCartaPorte", SqlDbType.VarChar).Value = ConfigCartaPorte .Add("@CveEntregaAlmacen", SqlDbType.Int).Direction = ParameterDirection.Output End With @@ -3872,7 +3888,9 @@ Public Class ClsGenerales Return Retorno End Function - Public Function UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, CveEmpresa As Integer) As Boolean + Public Function UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, CveEmpresa As Integer, + Optional FechaLlegada As DateTime = MinFecha, Optional CveCamionRemolque1 As Integer = -1, Optional CveCamionRemolque2 As Integer = -1, Optional Distancia As Integer = -1, + Optional ConfigCartaPorte As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_EntregaAlmacenRutaUpdate") @@ -3887,6 +3905,12 @@ Public Class ClsGenerales .Add("@FechaEntrega", SqlDbType.DateTime).Value = FechaEntrega .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaLlegada", SqlDbType.DateTime).Value = FechaLlegada + .Add("@CveCamionRemolque1", SqlDbType.Int).Value = CveCamionRemolque1 + .Add("@CveCamionRemolque2", SqlDbType.Int).Value = CveCamionRemolque2 + .Add("@Distancia", SqlDbType.Int).Value = Distancia + .Add("@ConfigCartaPorte", SqlDbType.VarChar).Value = ConfigCartaPorte + End With Try @@ -3969,7 +3993,7 @@ Public Class ClsGenerales End Function - Public Function GetInvEntregaAlmacenRutaRep(CveSubProyecto As Integer, CveEmpresa As Integer, Estatus As Integer, FechaInicio As Date, FechaFin As Date, CveChofer As Integer) As Boolean + Public Function GetInvEntregaAlmacenRutaRep(CveSubProyecto As Integer, CveEmpresa As Integer, Estatus As Integer, FechaInicio As Date, FechaFin As Date, CveChofer As Integer, Optional CveTimbre As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -3983,6 +4007,7 @@ Public Class ClsGenerales .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio .Add("@FechaFin", SqlDbType.Date).Value = FechaFin .Add("@CveChofer", SqlDbType.Int).Value = CveChofer + .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre End With diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 209735f2c..7d53118dc 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -5530,8 +5530,11 @@ Public Class ClsInventarios End Try Return Retorno End Function + Public Function AddCamiones(Placa As String, Especificacion As String, CveEmpresa As Integer, ConfigCartaPorte As String, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, - NumPolizaSeguro As String, CveUsuario As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String, NumPolizaSeguroCarga As String) As Boolean + NumPolizaSeguro As String, CveUsuario As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String, NumPolizaSeguroCarga As String, + Optional CveTipoCamion As Integer = 1, Optional LongitudCaja As String = "", Optional LineaTransportacion As String = "", Optional SCAC As String = "", Optional CAAT As String = "", + Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesAdd") With SqlAdapter.SelectCommand.Parameters @@ -5549,6 +5552,13 @@ Public Class ClsInventarios .Add("@NumPolizaSeguroMedioAmbiente", SqlDbType.VarChar).Value = NumPolizaSeguroMedioAmbiente .Add("@NombreAseguradoraCarga", SqlDbType.VarChar).Value = NombreAseguradoraCarga .Add("@NumPolizaSeguroCarga", SqlDbType.VarChar).Value = NumPolizaSeguroCarga + .Add("@CveTipoCamion", SqlDbType.Int).Value = CveTipoCamion + .Add("@CveTipoRemolque", SqlDbType.Int).Value = CveTipoRemolque + .Add("@LongitudCaja", SqlDbType.VarChar).Value = LongitudCaja + .Add("@LineaTransportacion", SqlDbType.VarChar).Value = LineaTransportacion + .Add("@SCAC", SqlDbType.VarChar).Value = SCAC + .Add("@CAAT", SqlDbType.VarChar).Value = CAAT + .Add("@NumeroTrailer", SqlDbType.VarChar).Value = NumeroTrailer End With Try SqlAdapter.Fill(Data) @@ -5574,7 +5584,9 @@ Public Class ClsInventarios Return Retorno End Function Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String, ConfigCartaPorte As String, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, - NumPolizaSeguro As String, CveUsuario As Integer, CveEmpresa As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String, NumPolizaSeguroCarga As String) As Boolean + NumPolizaSeguro As String, CveUsuario As Integer, CveEmpresa As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String, + NumPolizaSeguroCarga As String, Optional CveTipoCamion As Integer = -1, Optional LongitudCaja As String = "", Optional LineaTransportacion As String = "", Optional SCAC As String = "", Optional CAAT As String = "", + Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -5593,6 +5605,13 @@ Public Class ClsInventarios .Add("@NumPolizaSeguroMedioAmbiente", SqlDbType.VarChar).Value = NumPolizaSeguroMedioAmbiente .Add("@NombreAseguradoraCarga", SqlDbType.VarChar).Value = NombreAseguradoraCarga .Add("@NumPolizaSeguroCarga", SqlDbType.VarChar).Value = NumPolizaSeguroCarga + .Add("@CveTipoCamion", SqlDbType.Int).Value = CveTipoCamion + .Add("@CveTipoRemolque", SqlDbType.Int).Value = CveTipoRemolque + .Add("@LongitudCaja", SqlDbType.VarChar).Value = LongitudCaja + .Add("@LineaTransportacion", SqlDbType.VarChar).Value = LineaTransportacion + .Add("@SCAC", SqlDbType.VarChar).Value = SCAC + .Add("@CAAT", SqlDbType.VarChar).Value = CAAT + .Add("@NumeroTrailer", SqlDbType.VarChar).Value = NumeroTrailer End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index b3cf9ba5b..d2f7e6a76 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -174,13 +174,38 @@ Public Class ClsNominas End Sub #End Region - Public Function AutorizaCalculoAnual(CveEmpresa As Integer, CveUsuario As Integer, PersonalXml As String) As Boolean + Public Function ManifiestoForVtaGet(CveEmpresa As Integer, CveUsuario As Integer, PersonalXml As String, CveEmbarqueManifiesto As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Vta_ManifiestoForVtaGet", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmbarqueManifiesto", SqlDbType.Int).Value = CveEmbarqueManifiesto + + End With + Try + SqlAdapter.Fill(DTSet) + If DTSet.Tables.Count > 0 Then + Data = DTSet.Tables(0) + End If + retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al obtener datos manifiesto.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener los datos manifiesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + Public Function AutorizaCalculoAnual(CveEmpresa As Integer, CveUsuario As Integer, PersonalXml As String, Optional Numpagos As Integer = 1) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Nom_AutorizaCalculoAnual", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@PersonalXml", SqlDbType.Xml).Value = If(String.IsNullOrEmpty(PersonalXml), DBNull.Value, DirectCast(PersonalXml, Object)) + .Add("@Numpagos", SqlDbType.Int).Value = Numpagos + End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index d333a9036..23b1710e4 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -1972,8 +1972,10 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Alert("El nuevo personal no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia) ElseIf Ex1.Message.Contains("Chk_RH_PersonalSalarioIMSS") Then Alert("El nuevo personal no se guardo debido a que se presento un problema al calcular el salario", TipoMensaje.MsgAdvertencia) + GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al guardar el nuevo personal.", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())) ElseIf Ex1.Message.Contains("dbo.Vw_Val_Nom_Curps") Then Alert(String.Format("El nuevo personal no se guardo, ya existe un personal con esta curp '{0}'", CURP), TipoMensaje.MsgAdvertencia) + GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al guardar el nuevo personal.", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())) Else Me.OnError("Ocurrió un error al guardar el nuevo personal.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If diff --git a/App_Code/Timbres.vb b/App_Code/Timbres.vb index 4690fd6a1..c5fe74c5b 100644 --- a/App_Code/Timbres.vb +++ b/App_Code/Timbres.vb @@ -185,6 +185,17 @@ Public Class Timbres End If + If drT("ClaveTipoRemolque1").ToString <> "" Then + Dim Rem1 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque1"), .Placa = drT("PlacaRemolque1")} + CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem1) + End If + + If drT("ClaveTipoRemolque2").ToString <> "" Then + Dim Rem2 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque2"), .Placa = drT("PlacaRemolque2")} + CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2) + End If + + Dim DomOrigen As CFDICartaPorteDomicilio = Nothing DomOrigen = New CFDICartaPorteDomicilio With {.Calle = drT("DirOriCalle").ToString, .Colonia = drT("DirOriClaveSATColonia").ToString, diff --git a/CRM/Acercamiento.aspx.cs b/CRM/Acercamiento.aspx.cs index db600d989..4db633f95 100644 --- a/CRM/Acercamiento.aspx.cs +++ b/CRM/Acercamiento.aspx.cs @@ -389,6 +389,11 @@ public partial class CRM_Acercamiento : ClsPaginas DdlEtapaProceso.SelectedValueExist(CveEtapaActual); DesactivaEdicion(); + if (UsuarioActual.TienePermisoProceso(336)) //permiso para editar vendedor + { + DdlVendedor.Enabled = true; + } + if (CveEtapaActual > 0) { //CARGAMOS BITACORA @@ -732,6 +737,7 @@ public partial class CRM_Acercamiento : ClsPaginas Double Comision = TxtComision.Text.ToDouble(); int Prioridad = DdlPrioridad.SelectedValue.ToEntero(); + int CveRechazoMotivo = DdlRechazoMotivo.SelectedValue.ToEntero(); int CveUsuarioIng = UsuarioActual.CveUsuario; @@ -750,14 +756,19 @@ public partial class CRM_Acercamiento : ClsPaginas AcercaminetoModel.CveUsuarioIng = UsuarioActual.CveUsuario; AcercaminetoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso; AcercaminetoModel.FechaApertura = FechaApertura; - AcercaminetoModel.FechaCierre = (DateTime)FechaCierre; + AcercaminetoModel.FechaCierre = FechaCierre != null? (DateTime)FechaCierre : ModExtensiones.MinFecha; AcercaminetoModel.CvePS = DdlPS.SelectedValue.ToEntero(); + AcercaminetoModel.CveRechazoMotivo = CveRechazoMotivo; if (cRMService.AcercamientoUpdate(AcercaminetoModel)) { CveEtapaActual = CveEtapaProcesoActualActualizar; HdfEtapaSeleccionada.Value = CveEtapaProcesoActualActualizar.ToString(); } + else + { + Alert("No se actualizó el acercamiento.", ModExtensiones.TipoMensaje.ToastError); + } //CARGA BITACORA @@ -865,6 +876,11 @@ public partial class CRM_Acercamiento : ClsPaginas this.RegistraScript("$('#ModalCierreMotivoRechazo').modal();"); UpCierreMotivoRechazo.Update(); } + protected void EliminarFile(object sender, EventArgs e) + { + } + + protected void BtnRegistrarCierreCancelacion_Click(object sender, EventArgs e) { diff --git a/CRM/AsignarVendedorEnProspectos.aspx b/CRM/AsignarVendedorEnProspectos.aspx index b3d9085dd..a5c51183d 100644 --- a/CRM/AsignarVendedorEnProspectos.aspx +++ b/CRM/AsignarVendedorEnProspectos.aspx @@ -36,6 +36,14 @@
+ +
+ + + + + +
diff --git a/CRM/AsignarVendedorEnProspectos.aspx.cs b/CRM/AsignarVendedorEnProspectos.aspx.cs index 025b2970a..c3e28ef66 100644 --- a/CRM/AsignarVendedorEnProspectos.aspx.cs +++ b/CRM/AsignarVendedorEnProspectos.aspx.cs @@ -24,12 +24,13 @@ public partial class CRM_AsignarVendedorEnProspectos : ClsPaginas { string Empresa = (TxtNombre.Text == "" ? "-1" : TxtNombre.Text); ClsCRM ObjCRM = new ClsCRM(); - if (ObjCRM.GetProspectosPorAsignarVendedor(UsuarioActual.CveEmpresa, Empresa, DdlSubProyecto.SelectedValue.ToEntero(),DdlGiroClasificacion.SelectedValue.ToEntero())) + if (ObjCRM.GetProspectosPorAsignarVendedor(UsuarioActual.CveEmpresa, Empresa, DdlSubProyecto.SelectedValue.ToEntero(),DdlGiroClasificacion.SelectedValue.ToEntero(), DdlAsignacion.SelectedValue.ToEntero())) { GvProspectos.DataSource = ObjCRM.DtResultados; } ObjCRM.Dispose(); GvProspectos.DataBind(); + UpDatos.Update(); } private void CargaFiltros() diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs index 5b0d23fcb..9e913932a 100644 --- a/CRM/EmpresaCRM.aspx.cs +++ b/CRM/EmpresaCRM.aspx.cs @@ -1535,7 +1535,16 @@ public partial class CRM_EmpresaCRM : ClsPaginas DdlVendedor.SelectedValueExist(CveVendedor); if (CveVendedor > 0) + { DdlVendedor.Enabled = false; + DdlVendedorAsignado.Enabled = false; + } + + + if (UsuarioActual.TienePermisoProceso(336)) //permiso para editar vendedor + { + DdlVendedorAsignado.Enabled = true; + } } diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 32780864d..a7e2bb239 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -3989,7 +3989,7 @@ Partial Class Compras_Compras - + Dim TotalRealDevolucion As Decimal = 0 Dim EstatusCredito As Integer = 0 Dim CveSubProyecto As Integer = 0 @@ -4689,6 +4689,8 @@ Partial Class Compras_Compras If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then Devolucion = guardardevolucion(ObjInventario, ObjCompras.CveCompra, TxtSubTotal.Text.ToDecimal, TxtFecha.Text.Trim.ToDate) + TotalRealDevolucion = Devolucion.Total + TieneError = Devolucion.TieneError End If Dim ErrorDetalles As Boolean = False @@ -6856,12 +6858,29 @@ Partial Class Compras_Compras End If Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then + + Dim DiferenciaDevolucion As Decimal = importeMovimiento - TotalRealDevolucion + + If Math.Abs(DiferenciaDevolucion) > 0 Then + + + Dim CveSubProyecto69 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", "CveSubProyecto > 0 ").ToEntero + Dim CveClasificacion69 As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion > 0 ").ToEntero + + + Dim IdCtaContable69 As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacion69}").ToString.ToEntero + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaDevolucion, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable69, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69, CveClasificacion:=CveClasificacion69) Then + ErrorPrepoliza = True + End If + End If + + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TotalRealDevolucion, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=TotalRealDevolucion, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If + End If - - End If @@ -8500,8 +8519,8 @@ Partial Class Compras_Compras Catch ex As Exception ObjCompras.RollBack() If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() - Alert("Ocurrió un error al registrar la compra y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgError) - GuardaLog($"Ocurrió un error al registrar la compra y cualquier detalle comuníquese a Soporte Técnico : {ex}") + Alert("Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgError) + GuardaLog($"Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico : {ex}") ViewState("CveCompra") = -1 End Try ObjAcar.Dispose() @@ -14262,6 +14281,11 @@ Partial Class Compras_Compras '*se envia true si hubo un error*' Private Function guardardevolucion(ObjInventario As ClsInventarios, CveCompra As Integer, subtotal As Decimal, Fecha As Date) As MMensajeDevolucion + + + Dim TotalSumaPU As Decimal = 0.0D + + Dim ErrorMovInv As Boolean = False Dim CveAlmacen As Integer = DdlAlmacenDevolucion.SelectedValue.ToEntero() Dim subtotaldevolucion As Double = 0 @@ -14271,6 +14295,7 @@ Partial Class Compras_Compras Dim cantidad As Double = 0.0 Dim TotalAlmacen As Decimal = 0 + For Each Dr As GridViewRow In GVDevolucion.Rows 'CveAlmacen = Dr.DataKey("CveAlmacen").ToString.ToEntero cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDouble @@ -14309,6 +14334,7 @@ Partial Class Compras_Compras PU = (((Dr.FCTextBox("TxtCantidad").Text.ToDecimal * Dr.DataKey("PU").ToString.ToDecimal)) + dif) / Dr.FCTextBox("TxtCantidad").Text.ToDecimal End If + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr.FCTextBox("TxtCantidad").Text.ToDouble, Dr.DataKey("CveUM").ToString.ToEntero, Dr.DataKey("CvePS").ToString.ToEntero, PU, -1, CveMovimientoDetalleEntrada:=Dr.DataKey("CveMovimientoDetalle").ToString.ToEntero) Then ErrorMovInv = True Exit For @@ -14323,12 +14349,26 @@ Partial Class Compras_Compras End If End If + + + If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa, -1, -1) Then + + For Each drow As DataRow In ObjInventario.DtResultados.Rows + TotalSumaPU = TotalSumaPU + drow("Total").ToString.ToDecimal + Next + + End If + + + Return New MMensajeDevolucion() With { .CveMovimiento = CveMovimientoEntrada, .DebeRealizarDevolucion = realizadevolucion, - .TieneError = ErrorMovInv + .TieneError = ErrorMovInv, + .Total = TotalSumaPU } + End Function Private Sub cargaddldevoluciones(CveProveedor As Integer, SubTotal As Double) @@ -21032,4 +21072,5 @@ Public Class MMensajeDevolucion Public Property CveMovimiento As Integer Public Property TieneError As Boolean Public Property DebeRealizarDevolucion As Boolean + Public Property Total As Decimal End Class \ No newline at end of file diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index e10a3197b..78d5d76c9 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1,5770 +1,5826 @@ -Option Strict On -Option Explicit On - -Imports Extensiones -Imports System.Data -Imports Microsoft.Reporting.WebForms -Imports System.Xml -Imports System.IO -Imports iTextSharp.text -Imports iTextSharp.text.pdf - -Imports Stimulsoft.Report -Imports Stimulsoft.Report.Components -Imports Stimulsoft.Report.Dictionary -Imports Stimulsoft.Report.Web -Imports Newtonsoft.Json.Linq - -Partial Class PopUpVerFactura - Inherits ClsPaginas - - Private Shared missing As Object = System.Reflection.Missing.Value - -#Region " PROPIEDADES " - Public Property DtMovimientos() As DataTable - Get - Return CType(ViewState("DtMovimientos"), DataTable) - End Get - Set(value As DataTable) - ViewState("DtMovimientos") = value - End Set - End Property - Public Property DtDetalle() As DataTable - Get - Return CType(ViewState("DtDetalle"), DataTable) - End Get - Set(value As DataTable) - ViewState("DtDetalle") = value - End Set - End Property - Public Property Opcion As String - Get - Return CType(ViewState("Opcion"), String) - End Get - Set(value As String) - ViewState("Opcion") = value - End Set - End Property - Public Property Param As String - Get - Return CType(ViewState("Param"), String) - End Get - Set(value As String) - ViewState("Param") = value - End Set - End Property - Private Property TmpDTOS As DataTable - Get - Return CType(ViewState("TmpDTOS"), DataTable) - End Get - Set(value As DataTable) - ViewState("TmpDTOS") = value - End Set - End Property - Private Property TmpDTMaterialesOS As DataTable - Get - Return CType(ViewState("TmpDTMaterialesOS"), DataTable) - End Get - Set(value As DataTable) - ViewState("TmpDTMaterialesOS") = value - End Set - End Property - - Private ReadOnly Property DomicilioFiscalCompu As String - Get - Dim SisEmpresa As New ClsSisEmpresas() - Dim EmpInfo As DataRow - Dim domicilioFiscal As String = "" - If SisEmpresa.GetEmpresas(72, "-1", "-1", "-1", "-1") Then - EmpInfo = SisEmpresa.DtResultados.Rows(0) - domicilioFiscal = String.Format("{0} No.{1}, Col. {2}, CP:{3},{4},{5},MEXICO. RFC:{6}", EmpInfo.Item("Direccion"), EmpInfo.Item("NoExt"), EmpInfo.Item("Colonia"), EmpInfo.Item("CP"), EmpInfo.Item("Ciudad"), EmpInfo.Item("Estado"), EmpInfo.Item("RFC")) - Return domicilioFiscal - End If - Return "" - End Get - End Property - 'Private Property SessionPorImpresion As Boolean - ' Get - ' Return CBool(IfNull(ViewState("SessionPorImpresion"), False, ViewState("SessionPorImpresion"))) - ' End Get - ' Set(value As Boolean) - ' ViewState("SessionPorImpresion") = value - ' End Set - 'End Property -#End Region - - - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not IsPostBack Then - 'CREA EL OBJECTO USUARIO A PARTIR DEL TOKEN - If Request.Headers("ADSToken") IsNot Nothing Then - Dim UserParams As Hashtable = Parametros(Decripta((Request.Headers("ADSToken").ToString))) - Dim CveEmpresaToken As Integer = UserParams("CVEEMPRESA").ToString().ToEntero() - Dim CveUsuario As Integer = IfNull(UserParams("CVEUSUARIO"), 100, UserParams("CVEUSUARIO").ToString().ToEntero()).ToString().ToEntero() - - Dim UsuarioToken = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario) - - If UsuarioToken IsNot Nothing AndAlso Context.Session("UsuarioSIG") Is Nothing Then - Context.Session("UsuarioSIG") = UsuarioToken - End If - End If - - If Request("RFC") IsNot Nothing AndAlso Request("File") IsNot Nothing Then - Dim Path As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), Request("File")) - Dim Archivo As New System.IO.FileInfo(Path) - - If Archivo.Exists Then - HttpContext.Current.Response.Clear() - HttpContext.Current.Response.ClearContent() - HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf") - HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) - HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) - HttpContext.Current.Response.TransmitFile(Path) - 'HttpContext.Current.Response.Flush() - HttpContext.Current.Response.End() - End If - Archivo = Nothing - - ElseIf Request("RFC") IsNot Nothing AndAlso Request("FileV") IsNot Nothing Then - Dim Path As String = String.Format("{0}Ventas\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), Request("FileV")) - Dim Archivo As New System.IO.FileInfo(Path) - - If Archivo.Exists Then - HttpContext.Current.Response.Clear() - HttpContext.Current.Response.ClearContent() - HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf") - HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) - HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) - HttpContext.Current.Response.TransmitFile(Path) - 'HttpContext.Current.Response.Flush() - HttpContext.Current.Response.End() - End If - Archivo = Nothing - - ElseIf Request("File") IsNot Nothing AndAlso Request("TipoDocto") IsNot Nothing AndAlso Request("TipoArchivo") IsNot Nothing Then - Dim Path As String = "" ' String.Format("{0}Ventas\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), Request("FileV")) - - Select Case Request("TipoArchivo") - Case "PDF" - Path = String.Format("{0}PDF\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("TipoDocto"), Request("File")) - Case "XML" - Path = String.Format("{0}XML\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("TipoDocto"), Request("File")) - End Select - - Dim Archivo As New System.IO.FileInfo(Path) - - If Archivo.Exists Then - HttpContext.Current.Response.Clear() - HttpContext.Current.Response.ClearContent() - HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf") - HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) - HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) - HttpContext.Current.Response.TransmitFile(Path) - 'HttpContext.Current.Response.Flush() - HttpContext.Current.Response.End() - End If - Archivo = Nothing - Else - If Request("File") IsNot Nothing Then - Dim Path As String = String.Format("{0}Layout\{1}", UsuarioActual.Empresa.Ruta, Request("File")) - Dim Archivo As New System.IO.FileInfo(Path) - - If Archivo.Exists Then - HttpContext.Current.Response.Clear() - HttpContext.Current.Response.ClearContent() - HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "txt", "text/plain", "application/pdf") - HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=" & Archivo.Name) - HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) - HttpContext.Current.Response.TransmitFile(Path) - 'HttpContext.Current.Response.Flush() - HttpContext.Current.Response.End() - End If - Archivo = Nothing - End If - End If - - If Request("REPORTE") IsNot Nothing Then - CType(Session("DTPDF"), HtmlTable).ExportToPDF("Reporte") - End If - - 'OPCIONES - - If Request("P") IsNot Nothing AndAlso Decripta((Request("P").ToString)) <> "" Then - Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString))) - If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then - SeleccionaReporte(UrlParametros) - End If - End If - - If Request("onlyPrint") IsNot Nothing Then - If Request("onlyPrint").ToString() = "Pallet" Then - imprimirpallet2(Request("CvePallet").ToString.ToEntero()) - End If - If Request("onlyPrint").ToString() = "PalletCaja" Then - imprimirpallet(Request("CvePallet").ToString.ToEntero()) - End If - If Request("onlyPrint").ToString() = "manifiesto" Then - imprimirManifiesto(Request("cveEmbarqueManifiesto").ToString.ToEntero()) - End If - End If - - End If - End Sub - - Private Sub imprimirManifiesto(cveEmbarqueManifiesto As Integer) - Dim NoEmbarque As String = "" - Dim Fecha As String = "" - Dim SubProyecto As String = "" - Dim AgenciaAduanalUSA As String = "" - Dim AgenciaAduanalMEX As String = "" - Dim Temperatura As String = "" - Dim Hora As String = "" - Dim Chofer As String = "" - Dim CamPlaca As String = "" - Dim Camion As String = "" - Dim Rem1Placa As String = "" - Dim Remolque1 As String = "" - Dim NoPallets As String = "" - Dim NoBultos As String = "" - Dim NoKgManifiesto As String = "" - Dim tablaReporte As New DataTable - - 'Envase = "1 1/9" - 'Tamano = "Small" - 'Cultivo = "Tomate" - 'noPallet = "000001" - 'Variedad = "Golden" - Using objnom As New ClsNominas - If objnom.PA_AGRO_Embarque_ManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then - Dim row As DataRow = objnom.DtResultados.Rows(0) - NoEmbarque = row("NoEmbarque").ToString() - Fecha = String.Format("{0:dd/MM/yyyy}", row("Fecha")) - SubProyecto = row("SubProyecto").ToString() - AgenciaAduanalUSA = row("AgenciaAduanalUSA").ToString() - AgenciaAduanalMEX = row("AgenciaAduanalMEX").ToString() - Temperatura = row("Temperatura").ToString() - Hora = String.Format("{0:hh }:{0:mm }:{0:ss tt}:", row("FechaIng")) - Chofer = row("Chofer").ToString() - CamPlaca = row("CamPlaca").ToString() - Camion = String.Format("{0} {1}", row("CamAnio"), row("CamEspecificacion")) - Rem1Placa = row("Rem1Placa").ToString() - Remolque1 = String.Format("{0} {1}", row("Rem1Anio"), row("Rem1Especificacion")) - If row("CveCamionRemolque1").ToString() = "1" Then - Rem1Placa = "12-TF-5E" - Remolque1 = "Remolque 1" - Else - Rem1Placa = "15-TF-7f" - Remolque1 = "Remolque 2" - - End If - - If objnom.PA_Agro_Embarque_PalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then - NoPallets = objnom.DtResultados.Rows.Count.ToString() - NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2") - NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0") - tablaReporte = objnom.DtResultados - End If - End If - 'Remolque 1 12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2 15-TF-7f - End Using - Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("NoEmbarque", NoEmbarque)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("SubProyecto", SubProyecto)) - params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA)) - params.Add(New ReportParameter("AgenciaAduanalMEX", AgenciaAduanalMEX)) - params.Add(New ReportParameter("Temperatura", Temperatura)) - params.Add(New ReportParameter("Hora", Hora)) - params.Add(New ReportParameter("Chofer", Chofer)) - params.Add(New ReportParameter("CamPlaca", CamPlaca)) - params.Add(New ReportParameter("Camion", Camion)) - params.Add(New ReportParameter("Rem1Placa", Rem1Placa)) - params.Add(New ReportParameter("Remolque1", Remolque1)) - - - params.Add(New ReportParameter("NoBultos", NoBultos)) - params.Add(New ReportParameter("NoPallets", NoPallets)) - params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto)) - - - - - - - - Dim lrds As New List(Of ReportDataSource) - Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte} - lrds.Add(rds) - '"Empresas/Grales/Formatos/EquiposGPS.rdlc" - '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Manifesto") - End Sub - Private Sub imprimirpallet2(cvePallet As Integer) - Dim Envase As String = "" - Dim Tamano As String = "" - Dim Cultivo As String = "" - Dim noPallet As String = "" - Dim Variedad As String = "" - - 'Envase = "1 1/9" - 'Tamano = "Small" - 'Cultivo = "Tomate" - 'noPallet = "000001" - 'Variedad = "Golden" - Using objnom As New ClsNominas - If objnom.PA_Agro_Embarque_PalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then - Dim row As DataRow = objnom.DtResultados.Rows(0) - Envase = row("Envase").ToString() - Tamano = row("Tamaño").ToString() - Cultivo = row("Cultivo").ToString() - noPallet = row("Codigo").ToString() - Variedad = row("CultivoVariedad").ToString() - - End If - - End Using - Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("Envase", Envase)) - params.Add(New ReportParameter("Tamano", Tamano)) - params.Add(New ReportParameter("Cultivo", Cultivo)) - params.Add(New ReportParameter("noPallet", noPallet)) - params.Add(New ReportParameter("Variedad", Variedad)) - Dim tablaReporte As New DataTable - '"Empresas/Grales/Formatos/EquiposGPS.rdlc" - '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - ImprimirPDF("GPS/PalletEtiqueta2.rdlc", (New List(Of ReportDataSource)), params, "Pallet") - End Sub - Private Sub imprimirpallet(cvePallet As Integer) - Dim Envase As String = "" - Dim Tamano As String = "" - Dim Cultivo As String = "" - Dim noPallet As String = "" - Dim FormatoImpresion As String = "" - - 'Envase = "1 1/9" - 'Tamano = "Small" - 'Cultivo = "Tomate" - 'noPallet = "000001" - Using objnom As New ClsNominas - If objnom.PA_Agro_Embarque_PalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then - Dim row As DataRow = objnom.DtResultados.Rows(0) - Envase = row("Envase").ToString() - Tamano = row("Tamaño").ToString() - Cultivo = row("Cultivo").ToString() - noPallet = row("Codigo").ToString() - FormatoImpresion = row("FormatoImpresion").ToString() - - End If - - End Using - Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("Envase", Envase)) - params.Add(New ReportParameter("Tamano", Tamano)) - params.Add(New ReportParameter("Cultivo", Cultivo)) - params.Add(New ReportParameter("noPallet", noPallet)) - params.Add(New ReportParameter("FormatoImpresion", FormatoImpresion)) - Dim tablaReporte As New DataTable - '"Empresas/Grales/Formatos/EquiposGPS.rdlc" - '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - ImprimirPDF("GPS/PalletEtiqueta.rdlc", (New List(Of ReportDataSource)), params, "Pallet Caja") - End Sub -#Region "U S U A R I O - T O K E N" - - Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario - - Dim UsuarioToken As Usuario = Nothing - Dim ObjUsuarios As New ClsSisUsuarios - If ObjUsuarios.GetUsuarios(CveUsuario) Then - If ObjUsuarios.DtResultados.Rows.Count > 0 Then - Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() - Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() - UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa) - UsuarioToken.CveEmpresa = CveEmpresa - CreaObjetoEmpresa(UsuarioToken) - End If - End If - ObjUsuarios.Dispose() - Return UsuarioToken - End Function - Private Sub CreaObjetoEmpresa(ByRef UsuarioToken As Usuario) - - Dim ObjEmpresa As New ClsSisEmpresas() - If ObjEmpresa.GetEmpresas(UsuarioToken.CveEmpresa, "-1", "-1", "-1", "-1") Then - If ObjEmpresa.GetEmpresasFuncionalidades(UsuarioToken.CveEmpresa) Then - Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados - - Dim EmpresasFuncionalidades As New HybridDictionary - For Each Row As Data.DataRow In dttmp.Rows - EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString) - Next - ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades) - End If - - UsuarioToken.Empresa = ObjEmpresa.Empresa - End If - ObjEmpresa.Dispose() - End Sub -#End Region - - Private Sub SeleccionaReporte(UrlParametros As Hashtable) - - 'DESCARGA COMPROBANTE - If UrlParametros("OP").ToString = "IEComprobante" Then - DescargaComprobante(UrlParametros) - End If - - 'DESCARGA DOCUMENTO XML O PDF DE LA FACTURA COMPRA - If UrlParametros("OP").ToString = "Fact" Then - DescargaFactura(UrlParametros) - End If - - 'DESCARGA DOCUMENTO XML O PDF DE LA FACTURA VENTA - If UrlParametros("OP").ToString = "FactVta" Then - DescargaFacturaVenta(UrlParametros) - End If - - 'DESCARGA DOCUMENTO XML TRASLADO - If UrlParametros("OP").ToString = "DesXmlTra" Then - DescargaXMLTraslado(UrlParametros) - End If - - 'DESCARGA DOCUMENTO PDF TRASLADO - If UrlParametros("OP").ToString = "DesPdfTra" Then - DescargaPDFTraslado(UrlParametros) - End If - - 'DESCARGA DOCUMENTO XML DE UTILIDADES - If UrlParametros("OP").ToString = "DesXmlNom" Then - DescargaXMLUtilidades(UrlParametros) - End If - - 'DESCARGA DOCUMENTO XML DE VIATICOS - If UrlParametros("OP").ToString = "DesXmlVIA" Then - DescargaXMLViaticos(UrlParametros) - End If - - 'IMPRIME REPORTE DE ENTRADA DE ALMACEN - If UrlParametros("OP").ToString = "Alm" Then - If UrlParametros("CVEMOVIMIENTO") IsNot Nothing AndAlso UrlParametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then - CargaMovimientosAlmacen(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero) - End If - End If - - If UrlParametros("OP").ToString = "Etiqueta" Then - If UrlParametros("CVEMOVIMIENTO") IsNot Nothing AndAlso UrlParametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then - ImprimirEtiqueta(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, UrlParametros("MODALIDAD").ToString) - End If - End If - - If UrlParametros("OP").ToString = "Etiqueta2" Then - If UrlParametros("CVEPS") IsNot Nothing AndAlso UrlParametros("CVEPS").ToString.ToEntero > 0 Then - ImprimirEtiqueta2(UrlParametros("CVEPS").ToString.ToEntero, UrlParametros("PS").ToString, UrlParametros("CVEALMACEN").ToString, UrlParametros("MODALIDAD").ToString) - End If - End If - - 'IMPRIME OC - If UrlParametros("OP").ToString = "OC" Then - If UrlParametros("CVEOC") IsNot Nothing AndAlso UrlParametros("CVEOC").ToString.ToEntero > 0 Then - ImprimePDFOC(UrlParametros("CVEOC").ToString.ToEntero) - End If - End If - - 'IMPRIME COTIZACION OC - If UrlParametros("OP").ToString = "CotOC" Then - If UrlParametros("CVEOC") IsNot Nothing AndAlso UrlParametros("CVEOC").ToString.ToEntero > 0 Then - ImprimePDFCotOC(UrlParametros("CVEOC").ToString.ToEntero) - End If - End If - - 'IMPRIME VALE - If UrlParametros("OP").ToString = "VAL" Then - If UrlParametros("CVEVALE") IsNot Nothing AndAlso UrlParametros("CVEVALE").ToString.ToEntero > 0 Then - GenerarPDFVale(UrlParametros("CVEVALE").ToString.ToEntero) - End If - End If - - 'IMPRIME VALE - If UrlParametros("OP").ToString = "CAN" Then - If UrlParametros("CVEVTA") IsNot Nothing AndAlso UrlParametros("CVEVTA").ToString.ToEntero > 0 Then - ImprimeCancelacion(UrlParametros("CVEVTA").ToString.ToEntero) - End If - End If - - 'IMPRIME AFR - If UrlParametros("OP").ToString = "AFR" Then - If UrlParametros("CVEAFR") IsNot Nothing AndAlso UrlParametros("CVEAFR").ToString.ToEntero > 0 Then - If UrlParametros("TIPO") IsNot Nothing AndAlso UrlParametros("TIPO").ToString <> "" Then - ImprimirPDFAFR(UrlParametros("CVEAFR").ToString.ToEntero, UrlParametros("TIPO").ToString.ToEntero) - End If - End If - End If - - 'IMPRIME AFR AGRUPADO - If UrlParametros("OP").ToString = "AFR2" Then - If UrlParametros("CVER") IsNot Nothing AndAlso UrlParametros("CVER").ToString.ToEntero > 0 Then - If UrlParametros("TIPO") IsNot Nothing AndAlso UrlParametros("TIPO").ToString <> "" Then - ImprimirPDFAFR2(UrlParametros("CVER").ToString.ToEntero, UrlParametros("TIPO").ToString.ToEntero) - End If - End If - End If - - 'IMPRIME POLIZA - If UrlParametros("OP").ToString = "POL" Then - If UrlParametros("CVEPOLIZA") IsNot Nothing AndAlso UrlParametros("CVEPOLIZA").ToString.ToEntero > 0 Then - ImprimirPolizaPDF(UrlParametros("CVEPOLIZA").ToString.ToEntero) - End If - End If - - - 'IMPRIME FACTURA - If UrlParametros("OP").ToString = "VTA" Then - If UrlParametros("CVEVENTA") IsNot Nothing AndAlso UrlParametros("CVEVENTA").ToString.ToEntero > 0 Then - Dim Guardar As Boolean = UrlParametros("GUARDAR") IsNot Nothing AndAlso UrlParametros("GUARDAR").ToString() = "1" - - imprimirFacturaVenta(UrlParametros("CVEVENTA").ToString.ToEntero, If(UrlParametros("PAG") IsNot Nothing AndAlso UrlParametros("PAG").ToString <> "", UrlParametros("PAG").ToString, "0"), GuardarPDF:=Guardar) - End If - End If - - 'IMPRIME GASTO DE CONTRATO - If UrlParametros("OP").ToString = "CONG" Then - If UrlParametros("CVECONTRATO") IsNot Nothing AndAlso UrlParametros("CVECONTRATO").ToString.ToEntero > 0 Then - ImprimeGastoContrato(UrlParametros("CVECONTRATO").ToString.ToEntero, UrlParametros("CVECONTRATOGASTO").ToString.ToEntero) - End If - End If - - 'IMPRIME FORMATO CICOVISA - If UrlParametros("OP").ToString = "CIC" Then - If UrlParametros("CVEVENTA") IsNot Nothing AndAlso UrlParametros("CVEVENTA").ToString.ToEntero > 0 Then - ImprimeFormatoCICOVISA(UrlParametros("CVEVENTA").ToString.ToEntero) - End If - End If - - 'IMPRIME CARTA PORTE - If UrlParametros("OP").ToString = "CARPO" Then - If UrlParametros("CVEMOV") IsNot Nothing AndAlso UrlParametros("CVEMOV").ToString.ToEntero > 0 Then - ImprimeFormatoCartaPorte(UrlParametros("CVEMOV").ToString.ToEntero) - End If - End If - - If UrlParametros("OP").ToString = "CARPOTIMBRE" Then - If UrlParametros("CVETIMBRE") IsNot Nothing AndAlso UrlParametros("CVETIMBRE").ToString.ToEntero > 0 Then - ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVETIMBRE").ToString.ToEntero) - End If - End If - - - - If UrlParametros("OP").ToString = "CORT" Then - If UrlParametros("CVECORTE") IsNot Nothing AndAlso UrlParametros("CVECORTE").ToString.ToEntero > 0 Then - ImprimeCorte(UrlParametros("CVECORTE").ToString.ToEntero, UrlParametros("FORMATO").ToString) - End If - End If - - 'IMPRIME IE - If UrlParametros("OP").ToString = "IE" Then - If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then - ImprimirIE(UrlParametros("CVEIE").ToString.ToEntero, UsuarioActual.CveEmpresa) - End If - End If - - 'Imprime Movimiento de IE - If UrlParametros("OP").ToString = "ImprimeMov" Then - If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then - ImprimeMov(UrlParametros("CVEIE").ToString.ToEntero) - End If - End If - - 'IMPRIME DEPOSITOS CAJA - If UrlParametros("OP").ToString = "DC" Then - If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then - CargaDepositosCaja(UrlParametros("CVEIE").ToString.ToEntero, UrlParametros("CUENTACAJA").ToString, UrlParametros("CUENTADEPO").ToString) - End If - End If - - 'IMPRIME IE2 - If UrlParametros("OP").ToString = "IECHEQUE" Then - If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then - ImprimirIE(UrlParametros("CVEIE").ToString.ToEntero, UsuarioActual.CveEmpresa) - End If - End If - - 'Descargar Archivo - If UrlParametros("OP").ToString = "OI" Then - If UrlParametros("ARCHIVO") IsNot Nothing AndAlso UrlParametros("ARCHIVO").ToString.Length > 0 Then - CrearArchivo(UrlParametros("ARCHIVO").ToString) - End If - End If - - 'Archivo contrato - If UrlParametros("OP").ToString = "CONTRATO" Then - If UrlParametros("ARCHIVO") IsNot Nothing AndAlso UrlParametros("ARCHIVO").ToString.Length > 0 Then - CrearArchivoContratos(UrlParametros("ARCHIVO").ToString) - End If - End If - - 'IMPRIME ORDENES SERVICIO - If UrlParametros("OP").ToString = "OS" Then - If UrlParametros("CVEOS") IsNot Nothing AndAlso UrlParametros("CVEOS").ToString.ToEntero > 0 Then - GenerarPDFOS(UrlParametros("CVEOS").ToString.ToEntero) - End If - End If - - 'IMPRIME - If UrlParametros("OP").ToString = "P" Then - If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then - ImprimirReciboDePagos(UrlParametros("CVEIE").ToString.ToEntero, UrlParametros("CVEVENTA").ToString.ToEntero) - End If - End If - - 'IMPRIME COMPLEMENTO DE PAGO XML - If UrlParametros("OP").ToString = "CompP" Then - - If UrlParametros("CVECOMPLEMENTOPAGO") IsNot Nothing AndAlso UrlParametros("CVECOMPLEMENTOPAGO").ToString <> "" AndAlso UrlParametros("EXT").ToString <> "" Then - - Dim Path As String = String.Format("{0}{2}\Pag\{1}.{2}", UsuarioActual.Empresa.Ruta, UrlParametros("SERIEFOLIO"), UrlParametros("EXT").ToString) - Dim Archivo As New System.IO.FileInfo(Path) - - If UrlParametros("EXT").ToString.ToUpper = "PDF" Then - If UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero > 0 Then - Dim CveIE As Integer = -1 - If UrlParametros("CVEIE") IsNot Nothing Then - CveIE = UrlParametros("CVEIE").ToString.ToEntero - End If - PDFReciboDePagos(-1, CveIE, UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero, False) 'genero el documento de no existir - End If - End If - - Archivo = Nothing - End If - - If UrlParametros("SERIEFOLIO") IsNot Nothing AndAlso UrlParametros("SERIEFOLIO").ToString <> "" AndAlso UrlParametros("EXT").ToString <> "" Then - Dim Path As String = String.Format("{0}{2}\Pag\{1}.{2}", UsuarioActual.Empresa.Ruta, UrlParametros("SERIEFOLIO"), UrlParametros("EXT").ToString) - Dim Archivo As New System.IO.FileInfo(Path) - - If Not Archivo.Exists Then - If UrlParametros("CVEIE").ToString.ToEntero > 0 Then - PDFReciboDePagos(-1, UrlParametros("CVEIE").ToString.ToEntero, -1, True) - End If - End If - - If Archivo.Exists Then - HttpContext.Current.Response.Clear() - HttpContext.Current.Response.ClearContent() - HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf") - HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) - HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) - HttpContext.Current.Response.TransmitFile(Path) - 'HttpContext.Current.Response.Flush() - HttpContext.Current.Response.End() - End If - Archivo = Nothing - End If - End If - - 'IMPRIME ENTREGAS POR REALIZAR - If UrlParametros("OP").ToString = "ENTREGAS" Then - If UrlParametros("CVEASIGNACIONENTREGA") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then - ImprimeEntregasPorRealizar(UrlParametros("CVEASIGNACIONENTREGA").ToString.ToLong, UrlParametros("USUARIOENTREGA").ToString) - End If - End If - - 'PDF AJUSTE - If UrlParametros("OP").ToString = "AJUSTE" Then - 'SI YA ESTA GUARDADO - If UrlParametros("CVEGARANTIADETALLE") IsNot Nothing Then - ImprimirPDFAjuste(UrlParametros("CVEGARANTIADETALLE").ToString.ToEntero) - Else - ImprimirPDFAjuste(CvePSAjuste:=UrlParametros("CVEPSAJUSTE").ToString.ToEntero(), CveCliente:=UrlParametros("CVECLIENTE").ToString.ToEntero(), - CveClienteDistribuidor:=UrlParametros("CVECLIENTEDISTRIBUIDOR").ToString.ToEntero(), Consec:=UrlParametros("CONSEC").ToString, - FolioGarantia:=UrlParametros("FOLIOGARANTIA").ToString, FechaAjuste:=UrlParametros("FECHAAJUSTE").ToString.ToDateTime(), FechaReclamacion:=UrlParametros("FECHARECLAMACION").ToString.ToDateTime(), - TipoDefecto:=UrlParametros("TIPODEFECTO").ToString, CveTipoUso:=UrlParametros("CVETIPOUSO").ToString.ToEntero(), CodigoEnsamble:=UrlParametros("CODIGOENSAMBLE").ToString, - CodigoLinea:=UrlParametros("CODIGOLINEA").ToString, CodigoInspeccion:=UrlParametros("CODIGOINSPECCION").ToString, PorcentajeAjuste:=UrlParametros("PORCENTAJEAJUSTE").ToString, - BCIAjuste:=UrlParametros("BCIAJUSTE").ToString, Etiqueta:=UrlParametros("ETIQUETA").ToString, Año:=UrlParametros("AÑO").ToString, Comprobante:=UrlParametros("COMPROBANTE").ToString, - ModeloAuto:=UrlParametros("MODELOAUTO").ToString, MarcaAuto:=UrlParametros("MARCAAUTO").ToString, CodigoTD:=UrlParametros("CODIGOTD").ToString) - End If - End If - - End Sub - - Private Function Parametros(Cadena As String) As Hashtable - Dim P1() As String = Cadena.Split("&"c) - Dim Tmp As String - Dim P2() As String - - Dim URLParametros As New Hashtable - - For Each Tmp In P1 - P2 = Tmp.Replace("%26%", "&").Split("="c) - URLParametros.Add(P2(0).ToString.ToUpper, P2(1)) - Next - Return URLParametros - End Function - -#Region "OP = CORT - IMPRIMIR CORTE" - - Private Sub ImprimeCorte(CveCorte As Integer, Formato As String) - Dim ObjVenta As New ClsVentas - Dim ObjPuntoVenta As New ClsPuntoVenta - Dim DtCortesVentasResumen As DataTable = Nothing - Dim DtCortesVentas As DataTable = Nothing - Dim Fecha = "", Nombre = "" - If ObjVenta.GetCortesDetalleVentasResumen(CveCorte, UsuarioActual.CveEmpresa) Then - DtCortesVentasResumen = ObjVenta.DtResultados - - End If - If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, UsuarioActual.CveEmpresa) Then - DtCortesVentas = ObjPuntoVenta.DtResultados - If DtCortesVentas.Rows.Count > 0 Then - Dim RowInfo As DataRow = DtCortesVentas.FiltroPrimero("CveVenta > 0") - - Fecha = RowInfo("FechaInicial").ToString - Nombre = RowInfo("Nombre").ToString - End If - End If - ObjVenta.Dispose() - ObjPuntoVenta.Dispose() - Dim FechaCorte As String = $" Fecha fin: {Fecha}" - Dim Usuario As String = $" Usuario: {Nombre}" - If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - 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) - 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("AgrupoPor", $"{FechaCorte}{Usuario}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - Dim lrds As New List(Of ReportDataSource) - Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtCortesVentasResumen} - lrds.Add(rds) - Dim rds2 As New ReportDataSource With {.Name = "DataSet2", .Value = DtCortesVentas} - lrds.Add(rds2) - ImprimirPDF("Empresas/Grales/Formatos/RepCortes.rdlc", lrds, params, "ReporteCortes", Formato) - End If - - End Sub - -#End Region - -#Region " OP = FACTURA - IMPRIME COMPRA" - Private Sub DescargaComprobante(Parametros As Hashtable) - If Parametros("COMPROBANTE") IsNot Nothing Then - - Dim Path As String = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, Parametros("COMPROBANTE")) - Dim Archivo As New System.IO.FileInfo(Path) - - If Archivo.Exists Then - HttpContext.Current.Response.Clear() - HttpContext.Current.Response.ClearContent() - HttpContext.Current.Response.ContentType = "application/octet-stream" - HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) - HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) - HttpContext.Current.Response.TransmitFile(Path) - 'HttpContext.Current.Response.Flush() - HttpContext.Current.Response.End() - End If - Archivo = Nothing - End If - End Sub - Private Sub DescargaFactura(Parametros As Hashtable) - If Parametros("CVEFACTURA") IsNot Nothing AndAlso Parametros("CVEFACTURA").ToString.ToEntero > 0 Then - Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf") - Dim Path As String = String.Format("{0}Compras\{1}\{2}.{3}", UsuarioActual.Empresa.Ruta, Parametros("RFC").ToString, Parametros("CVEFACTURA").ToString, Exten) - Dim Archivo As New System.IO.FileInfo(Path) - - If Archivo.Exists Then - HttpContext.Current.Response.Clear() - HttpContext.Current.Response.ClearContent() - HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf") - HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) - HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) - HttpContext.Current.Response.TransmitFile(Path) - 'HttpContext.Current.Response.Flush() - HttpContext.Current.Response.End() - End If - Archivo = Nothing - End If - End Sub -#End Region - -#Region "OP DesXmlVIA- DESCARGAR XML DE VIATICOS" - Private Sub DescargaXMLViaticos(Parametros As Hashtable) - If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then - Dim Exten As String = "Xml" - Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", Parametros("TIPO").ToString, Parametros("SERIEFOLIO").ToString, Exten) - Dim Archivo As New System.IO.FileInfo(Path) - - If Archivo.Exists Then - HttpContext.Current.Response.Clear() - HttpContext.Current.Response.ClearContent() - HttpContext.Current.Response.ContentType = "application/xml" - HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) - HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) - HttpContext.Current.Response.TransmitFile(Path) - 'HttpContext.Current.Response.Flush() - HttpContext.Current.Response.End() - End If - Archivo = Nothing - End If - End Sub - -#End Region - -#Region "OP DesXmlNom- DESCARGAR XML DE UTILIDADES" - Private Sub DescargaXMLUtilidades(Parametros As Hashtable) - If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then - Dim Exten As String = "Xml" - Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", "Utilidades", Parametros("SERIEFOLIO").ToString, Exten) - Dim Archivo As New System.IO.FileInfo(Path) - - If Archivo.Exists Then - HttpContext.Current.Response.Clear() - HttpContext.Current.Response.ClearContent() - HttpContext.Current.Response.ContentType = "application/xml" - HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) - HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) - HttpContext.Current.Response.TransmitFile(Path) - 'HttpContext.Current.Response.Flush() - HttpContext.Current.Response.End() - End If - Archivo = Nothing - End If - End Sub -#End Region - -#Region "OP = 'CONG' - IMPRIME GASTO DE CONTRATO" - Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer) - - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - - Dim Dr As DataRow = Nothing - Dim ObjContratos As New ClsContratos - If Not ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Or Not ObjContratos.DtResultados.Rows.Count > 0 Then - ObjContratos.Dispose() - Exit Sub - End If - - Dim params As New List(Of ReportParameter) - 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("Contrato", $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ")) - params.Add(New ReportParameter("Proveedor", If(ObjContratos.CveProveedor > 0, ObjContratos.RazonSocial.ToString, ObjContratos.NombreComercial.ToString))) - params.Add(New ReportParameter("FechaInicio", ObjContratos.FechaInicial.ToShortDateString)) - params.Add(New ReportParameter("FechaFin", ObjContratos.FechaFinal.ToShortDateString)) - params.Add(New ReportParameter("TipoContrato", ObjContratos.DtResultados.Rows(0)("ContratoTipo").ToString)) - params.Add(New ReportParameter("TotalContrato", ObjContratos.ImporteTotal.FormatoNumero)) - Dim Nombre As String = If($"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ".Length > 20, $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ".Substring(0, 20), $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ") - Dim SumaUtilidad As Double = 0 - Dim SumaGasto As Double = 0 - If ObjContratos.GetReporteContratosAvancesDetalleCP(CveContrato, UsuarioActual.CveEmpresa) Then - If ObjContratos.DtResultados.Rows.Count > 0 Then - SumaUtilidad = ObjContratos.DtResultados.SUM("AvanceUtilidad", "CveClasificacion IS NULL") - End If - End If - Dim dt As DataTable = Nothing - If ObjContratos.GetContratoGastos(CveContrato, UsuarioActual.CveEmpresa) Then - dt = ObjContratos.DtResultados.FiltraParametros($"CveContratoGasto = {CveContratoGasto}") - SumaGasto = ObjContratos.DtResultados.SUM("Importe", "CveContratoGasto IS NULL") - End If - params.Add(New ReportParameter("Utilidad", $"$ {(SumaUtilidad - SumaGasto).ToString.FormatoNumero()}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - ImprimirPDF("Empresas/Grales/Formatos/ContratoGasto.rdlc", dt, params, $"{Nombre}-Gastos", Formato:="PDF") - End Sub -#End Region - - -#Region "OP = 'CIC' - IMPRIME FORMATO CICOVISA" - Private Sub ImprimeFormatoCICOVISA(CveVenta As Integer) - If CveVenta > 0 Then - Dim ObjVentas As New ClsVentas - Dim SerieFolio As String = "" - Dim PedidoContrato As String = "" - Dim EnvioContacto As String = "" - Dim EnvioDireccion As String = "" - Dim Guia As String = "" - If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then - If ObjVentas.DtResultados.Rows.Count > 0 Then - SerieFolio = ObjVentas.DtResultados.Rows(0)("SerieFolio").ToString - PedidoContrato = ObjVentas.DtResultados.Rows(0)("PedidoContrato").ToString - EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString - EnvioDireccion = ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString - Guia = ObjVentas.DtResultados.Rows(0)("Guia").ToString - End If - End If - Dim Dt As DataTable = Nothing - If ObjVentas.GetVentaDetalle(CveVenta) Then - Dt = ObjVentas.DtResultados - End If - ObjVentas.Dispose() - If Dt.Rows.Count > 0 Then - Dim params As New List(Of ReportParameter) - 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("EnvioContacto", EnvioContacto)) - params.Add(New ReportParameter("SerieFolio", SerieFolio)) - params.Add(New ReportParameter("PedidoContrato", PedidoContrato)) - params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion)) - params.Add(New ReportParameter("Guia", Guia)) - ImprimirPDF("Empresas/Grales/Formatos/Cicovisa.rdlc", Dt, params, String.Format("Formato Cicovisa -{0}", Now.ToDateTime.ToShortDateString)) - End If - End If - End Sub - -#End Region - -#Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE TIMBRADO" - Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer) - If CveMovimiento > 0 Then - Dim ObjInv As New ClsInventarios - Dim ObjAcar As New ClsAcarreos - Dim SerieFolio As String = "" - Dim DomicilioSucursal As String = "" - Dim LugarFecha As String = "" - Dim Origen As String = "" - Dim Destino As String = "" - Dim Observaciones As String = "" - Dim Chofer As String = "" - Dim CveChofer As String - Dim Placa As String = "" - Dim Recibio As String = "" - Dim FechaEntrega As String = "" - Dim EspecifUnidad As String = "" - Dim ResponsableCarga As String = "" - Dim ResponsableRecibio As String = "" - Dim Identificacion As String = "" - Dim Domicilio As String = "" - Dim Telefono As String = "" - Dim Ciudad As String = "" - Dim Licencia As String = "" - - Dim SBDireccionO As New StringBuilder() - Dim SBDireccionD As New StringBuilder() - - If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then - If ObjInv.DtResultados.Rows.Count > 0 Then - Dim Dr As DataRow = ObjInv.DtResultados.Rows(0) - If Dr IsNot Nothing Then - SerieFolio = Dr("Folio").ToString - DomicilioSucursal = $"{Dr("CalleOrigen").ToString} {Dr("NoExtOrigen").ToString}, Col. {Dr("ColoniaOrigen").ToString} " - LugarFecha = $"{Dr("MunicipioOrigen").ToString}, {Dr("EstadoOrigen").ToString} {Dr("FechaMovto").ToString.ToDate.ToShortDateString}" - Origen = Dr("AlmacenOrigen").ToString - Destino = Dr("AlmacenDestino").ToString - Observaciones = Dr("Observaciones").ToString - CveChofer = Dr("CveChofer").ToString - If ObjAcar.GetChofer(CveChofer.ToEntero, UsuarioActual.CveEmpresa, -1, -1) Then - Chofer = ObjAcar.DtResultados.FiltroPrimeroValor("Chofer") - End If - Placa = Dr("Traslado_Placa").ToString - Recibio = Dr("Recibio").ToString - FechaEntrega = Dr("FechaEntrega").ToString - EspecifUnidad = Dr("EspecificacionUnidad").ToString - - If Dr("CalleOrigen").ToString.Length > 0 Then - SBDireccionO.AppendFormat("{0}", Dr("CalleOrigen").ToString) - If Dr("NoExtOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", Dr("NoExtOrigen").ToString) - If Dr("ColoniaOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Col: {0}", Dr("ColoniaOrigen").ToString) - If Dr("CPOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", CP: {0}", Dr("CPOrigen").ToString) - If Dr("LocalidadOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Loc: {0}", Dr("LocalidadOrigen").ToString) - If Dr("MunicipioOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Cd: {0}", Dr("MunicipioOrigen").ToString) - If Dr("EstadoOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Edo: {0}", Dr("EstadoOrigen").ToString) - If Dr("PaisOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", País: {0}", Dr("PaisOrigen").ToString) - End If - If Dr("CalleDestino").ToString.Length > 0 Then - SBDireccionD.AppendFormat("{0}", Dr("CalleDestino").ToString) - If Dr("NoExtDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", No.Ext: {0}", Dr("NoExtDestino").ToString) - If Dr("ColoniaDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Col: {0}", Dr("ColoniaDestino").ToString) - If Dr("CPDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", CP: {0}", Dr("CPDestino").ToString) - If Dr("LocalidadDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Loc: {0}", Dr("LocalidadDestino").ToString) - If Dr("MunicipioDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Cd: {0}", Dr("MunicipioDestino").ToString) - If Dr("EstadoDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", Dr("EstadoDestino").ToString) - If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString) - End If - - ResponsableCarga = Dr("ResponsableCarga").ToString - ResponsableRecibio = Dr("ResponsableRecibio").ToString - Identificacion = Dr("Identificacion").ToString - Domicilio = Dr("Domicilio").ToString - Telefono = Dr("Telefono1").ToString - Ciudad = Dr("Ciudad").ToString - Licencia = Dr("Licencia").ToString - End If - End If - End If - ObjAcar.Dispose() - - Dim Dt As DataTable = Nothing - If ObjInv.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then - Dt = ObjInv.DtResultados - End If - ObjInv.Dispose() - If Dt.Rows.Count > 0 Then - Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - - - - 'params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, ImageToBase64(Drawing.Image.FromFile(Imagen.FullName), Drawing.Imaging.ImageFormat.Png), ""))) - - If Imagen.Exists Then - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - - - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - 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. {Telefono}")) - params.Add(New ReportParameter("SerieFolio", SerieFolio)) - params.Add(New ReportParameter("DomicilioSucursal", DomicilioSucursal)) - params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC)) - params.Add(New ReportParameter("LugarFecha", LugarFecha)) - params.Add(New ReportParameter("Origen", Origen)) - params.Add(New ReportParameter("Destino", Destino)) - params.Add(New ReportParameter("Remitente", "")) - params.Add(New ReportParameter("Destinatario", "")) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("Chofer", Chofer)) - params.Add(New ReportParameter("Placa", Placa)) - params.Add(New ReportParameter("Recibio", Recibio)) - params.Add(New ReportParameter("FechaEntrega", FechaEntrega.ToDateTime().ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("EspecifUnidad", EspecifUnidad)) - params.Add(New ReportParameter("DireccionOrigen", SBDireccionO.ToString)) - params.Add(New ReportParameter("DireccionDestino", SBDireccionD.ToString)) - params.Add(New ReportParameter("ResponsableCarga", ResponsableCarga)) - params.Add(New ReportParameter("ResponsableRecibio", ResponsableRecibio)) - params.Add(New ReportParameter("Identificacion", Identificacion)) - params.Add(New ReportParameter("Domicilio", Domicilio)) - params.Add(New ReportParameter("Telefono", Telefono)) - params.Add(New ReportParameter("Ciudad", Ciudad)) - params.Add(New ReportParameter("Licencia", Licencia)) - ImprimirPDF("Empresas/Grales/Formatos/CartaPorte.rdlc", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString)) - End If - End If - End Sub - - Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String - Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0) - If o Is Nothing Then - Return Retorno - Else - Return o.Value - End If - End Function - - Private Sub ImprimeFormatoCartaPorteTimbrado(CveTimbre As Integer) - If CveTimbre > 0 Then - - '01 Autotransporte Federal - '02 Transporte Marítimo - '03 Transporte Aéreo - '04 Transporte Ferroviario - '05 Ducto - Dim HtTransporte As New Hashtable() - HtTransporte.Add("01", "Autotransporte Federal") - HtTransporte.Add("02", "Transporte Marítimo") - HtTransporte.Add("03", "Transporte Aéreo") - HtTransporte.Add("04", "Transporte Ferroviario") - HtTransporte.Add("05", "Ducto") - - 'EMISOR - Dim LugarExpedicion As String = "" - Dim ImgCBB As String = "" - 'COMPROBANTE - Dim SerieFolio As String = "" - Dim Telefono As String = "" - Dim SubTotal As Decimal = 0 - Dim Descuentos As Decimal = 0 - Dim Total As Decimal = 0 - 'DATOS DEL CLIENTE - Dim ClienteRFC As String = "" - Dim ClienteNombre As String = "" - Dim ClienteUsoCFDi As String = "" - - 'TRANSPORTE - Dim MedioTransporte As String = "" - Dim TransporteInternacional As String = "" - Dim PermisoSTCC As String = "" - Dim NumPermiso As String = "" - Dim AseguradoraRespCivil As String = "" - Dim NumPolizaSeguroRespCivil As String = "" - Dim NombreAseguradoraMedioAmbiente As String = "" - Dim NumPolizaSeguroMedioAmbiente As String = "" - Dim NombreAseguradoraCarga As String = "" - Dim NumPolizaSeguroCarga As String = "" - - - - - Dim PlacaVM As String = "" - Dim AnioModeloVM As String = "" - 'TIMBRADO - Dim FolioFiscal As String = "" - Dim NoCertificadoSAT As String = "" - Dim CadenaOriginal As String = "" - Dim NoSerieCertificado As String = "" - Dim FechaCertificacion As DateTime = Nothing - Dim SelloCFDi As String = "" - Dim SelloSAT As String = "" - Dim TipoDocto As String = "" - - Dim ObjInv As New ClsGenerales - - If ObjInv.GetGralTimbre(CveTimbre, "-1", MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1) Then - If ObjInv.DtResultados.Rows.Count > 0 Then - Dim Dr As DataRow = ObjInv.DtResultados.Rows(0) - If Dr IsNot Nothing Then - SerieFolio = Dr("SerieFolio").ToString - Telefono = Dr("FiguraTelefono").ToString - TipoDocto = Dr("TipoDocto").ToString - End If - End If - End If - ObjInv.Dispose() - - Dim DtConceptos As New DataTable() - DtConceptos.Columns.Add(New DataColumn("Cantidad", GetType(Decimal))) - DtConceptos.Columns.Add(New DataColumn("Unidad", GetType(String))) - DtConceptos.Columns.Add(New DataColumn("Descripcion", GetType(String))) - DtConceptos.Columns.Add(New DataColumn("ValorUnitario", GetType(Decimal))) - DtConceptos.Columns.Add(New DataColumn("Importe", GetType(Decimal))) - - Dim DtUbicaciones As New DataTable() - DtUbicaciones.Columns.Add(New DataColumn("Distancia", GetType(String))) - DtUbicaciones.Columns.Add(New DataColumn("TipoUbicacion", GetType(String))) - DtUbicaciones.Columns.Add(New DataColumn("RFC", GetType(String))) - DtUbicaciones.Columns.Add(New DataColumn("Nombre", GetType(String))) - DtUbicaciones.Columns.Add(New DataColumn("FechaHoraSalida", GetType(DateTime))) - DtUbicaciones.Columns.Add(New DataColumn("Direccion", GetType(String))) - - Dim DtMercancias As New DataTable() - DtMercancias.Columns.Add(New DataColumn("Cantidad", GetType(Decimal))) - DtMercancias.Columns.Add(New DataColumn("UnidadMedida", GetType(String))) - DtMercancias.Columns.Add(New DataColumn("Descripcion", GetType(String))) - DtMercancias.Columns.Add(New DataColumn("PesoEnKg", GetType(String))) - - Dim DtOperadores As New DataTable() - DtOperadores.Columns.Add(New DataColumn("RFC", GetType(String))) - DtOperadores.Columns.Add(New DataColumn("NumLicencia", GetType(String))) - DtOperadores.Columns.Add(New DataColumn("NombreOperador", GetType(String))) - - Dim XMLDoc As New XmlDocument - Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", TipoDocto, String.Format("{0}", SerieFolio), "xml") - Dim Archivo As New System.IO.FileInfo(Path) - - If Archivo.Exists Then - Try - XMLDoc.Load(Path) - Catch ex As Exception - Try - Dim oReader = New StreamReader(Path, Encoding.GetEncoding("ISO-8859-1")) - XMLDoc.Load(oReader) - oReader.Dispose() - Catch ex2 As Exception - GuardaLog("Error al intentar leer el XML del SAT. Error:" & ex2.ToString()) - End Try - End Try - End If - - If XMLDoc IsNot Nothing AndAlso Archivo.Exists Then - - Dim RutaCBB As String = String.Format("{0}\CBB\{1}.jpg", UsuarioActual.Empresa.Ruta, SerieFolio) - Dim ImagenCBB As New System.IO.FileInfo(RutaCBB) - - Dim nodo As XmlNode = XMLDoc.DocumentElement - - Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix) - Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3" - Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable) - - If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2" - namespaces.AddNamespace(Prefijo, cfdVer) - namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital") - namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal") - namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal") - namespaces.AddNamespace("cartaporte", "http://www.sat.gob.mx/CartaPorte") - namespaces.AddNamespace("cartaporte20", "http://www.sat.gob.mx/CartaPorte20") - - Dim nodeComprobante As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante", Prefijo), namespaces) - If nodeComprobante IsNot Nothing Then - LugarExpedicion = ValorXML(nodeComprobante, "LugarExpedicion") - SubTotal = ValorXML(nodeComprobante, "SubTotal").ToDecimal() - Total = ValorXML(nodeComprobante, "Total").ToDecimal() - End If - - Dim nodeCliente As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Receptor", Prefijo), namespaces) - - If nodeCliente IsNot Nothing Then - ClienteRFC = ValorXML(nodeCliente, "RFC") - ClienteNombre = ValorXML(nodeCliente, "Nombre") - Dim UsoCFDI = ValorXML(nodeCliente, "UsoCFDI") - ClienteUsoCFDi = String.Format("{0} - {1}", UsoCFDI, GlobalDTSATUsosCFDI().FiltroPrimeroValor("Descripcion", String.Format("UsoCFDI = '{0}'", UsoCFDI))) - End If - - Dim nodeConceptos As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Conceptos", Prefijo), namespaces) - - If nodeConceptos IsNot Nothing Then - For Each node As XmlNode In nodeConceptos.ChildNodes - Dim Row As DataRow = DtConceptos.NewRow - - Row("Cantidad") = ValorXML(node, "Cantidad", "") - Row("Unidad") = ValorXML(node, "Unidad", "") - Row("Descripcion") = ValorXML(node, "Descripcion", "") - Row("ValorUnitario") = ValorXML(node, "ValorUnitario", "") - Row("Importe") = ValorXML(node, "Importe", "") - - DtConceptos.Rows.Add(Row) - Next - End If - - - Dim nodeComp As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Complemento", Prefijo), namespaces) - - Dim nodeCartaPorte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:CartaPorte", "cartaporte20"), namespaces) - If nodeCartaPorte IsNot Nothing Then - TransporteInternacional = ValorXML(nodeCartaPorte, "TranspInternac", "") - End If - - Dim nodeAutotransporteFederal As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Autotransporte", "cartaporte20"), namespaces) - If nodeAutotransporteFederal IsNot Nothing Then - PermisoSTCC = ValorXML(nodeAutotransporteFederal, "PermSCT", "") - NumPermiso = ValorXML(nodeAutotransporteFederal, "NumPermisoSCT", "") - End If - - Dim nodeIdentificacionVehicular As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:IdentificacionVehicular", "cartaporte20"), namespaces) - If nodeIdentificacionVehicular IsNot Nothing Then - PlacaVM = ValorXML(nodeIdentificacionVehicular, "PlacaVM", "") - AnioModeloVM = ValorXML(nodeIdentificacionVehicular, "AnioModeloVM", "") - End If - - Dim nodeSeguros As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Seguros", "cartaporte20"), namespaces) - If nodeIdentificacionVehicular IsNot Nothing Then - AseguradoraRespCivil = ValorXML(nodeSeguros, "AseguraRespCivil", "") - NumPolizaSeguroRespCivil = ValorXML(nodeSeguros, "PolizaRespCivil", "") - - 'Por Definir de donde sale - NombreAseguradoraMedioAmbiente = ValorXML(nodeSeguros, "AseguraMedAmbiente", "") - NumPolizaSeguroMedioAmbiente = ValorXML(nodeSeguros, "PolizaMedAmbiente", "") - NombreAseguradoraCarga = ValorXML(nodeSeguros, "AseguraCarga", "") - NumPolizaSeguroCarga = ValorXML(nodeSeguros, "PolizaCarga", "") - End If - - 'Dim nodeFiguraTransporte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:FiguraTransporte", "cartaporte20"), namespaces) - 'If nodeFiguraTransporte IsNot Nothing Then - ' Dim CveTransporte As String = ValorXML(nodeFiguraTransporte, "TipoFigura", "") - ' MedioTransporte = String.Format("{0} - {1}", CveTransporte, HtTransporte(CveTransporte).ToString()) - 'End If - - Dim nodeMercancias As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancia", "cartaporte20"), namespaces) - For Each node As XmlNode In nodeMercancias - Dim Row As DataRow = DtMercancias.NewRow - - Row("Cantidad") = ValorXML(node, "Cantidad", "") - Row("UnidadMedida") = ValorXML(node, "Unidad", "") - Row("Descripcion") = ValorXML(node, "Descripcion", "") - Row("PesoEnKg") = ValorXML(node, "PesoEnKg", "") - - DtMercancias.Rows.Add(Row) - Next - - Dim nodeOperadores As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:TiposFigura", "cartaporte20"), namespaces) - For Each node As XmlNode In nodeOperadores - Dim Row As DataRow = DtOperadores.NewRow - - Row("RFC") = ValorXML(node, "RFCFigura", "") - Row("NumLicencia") = ValorXML(node, "NumLicencia", "") - Row("NombreOperador") = ValorXML(node, "NombreFigura", "") - - DtOperadores.Rows.Add(Row) - Next - - - Dim nodeUbicaciones As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Ubicacion", "cartaporte20"), namespaces) - For Each node As XmlNode In nodeUbicaciones - Dim Row As DataRow = DtUbicaciones.NewRow - - Row("Distancia") = ValorXML(node, "DistanciaRecorrida", "") - Row("TipoUbicacion") = ValorXML(node, "TipoUbicacion", "") - Row("FechaHoraSalida") = ValorXML(node, "FechaHoraSalidaLlegada", "") - Row("RFC") = ValorXML(node, "RFCRemitenteDestinatario", "") - Row("Nombre") = ValorXML(node, "NombreRemitenteDestinatario", "") - - Dim nodeDomicilio = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte20:Domicilio") 'node.SelectSingleNode(String.Format("//{0}:Domicilio", "cartaporte"), namespaces) - If nodeDomicilio IsNot Nothing Then - - Dim Estado As String = "" - Dim Municipio As String = "" - Dim Colonia As String = "" - Dim calle = ValorXML(nodeDomicilio, "Calle", "") - Dim CP = ValorXML(nodeDomicilio, "CodigoPostal", "") - - Dim dr As DataRow = GlobalDTGralColonias(ValorXML(nodeDomicilio, "Estado", ""), ValorXML(nodeDomicilio, "Municipio", ""), ValorXML(nodeDomicilio, "Colonia", "")).FiltroPrimero("") - If dr IsNot Nothing Then - Estado = dr("NombreEstado").ToString - Municipio = dr("NombreMunicipio").ToString - Colonia = dr("NombreAsentamiento").ToString - End If - Row("Direccion") = String.Format("{0} Col.{1},{2},{3}. CP {4}", calle, Colonia, Municipio, Estado, CP) - End If - - - - DtUbicaciones.Rows.Add(Row) - Next - - Dim nodeTFD As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces) - If nodeTFD IsNot Nothing Then - FolioFiscal = ValorXML(nodeTFD, "UUID", "") - NoSerieCertificado = ValorXML(nodeTFD, "NoCertificadoSAT", "") - FechaCertificacion = ValorXML(nodeTFD, "FechaTimbrado", "").ToDateTime - SelloCFDi = ValorXML(nodeTFD, "SelloCFD", "") - SelloSAT = ValorXML(nodeTFD, "SelloSAT", "") - NoCertificadoSAT = ValorXML(nodeTFD, "NoCertificadoSAT", "") - - CadenaOriginal = "||1.0|" + FolioFiscal + "|" + FechaCertificacion.ToString("yyyy-MM-dd") + "T" + FechaCertificacion.ToString("HH:mm:ss") + "|" + SelloCFDi + "|" + NoSerieCertificado + "||" - End If - - If Not ImagenCBB.Exists Then - Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar() - CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ClienteRFC, Total, FolioFiscal, RutaCBB) - End If - - - ImagenCBB = New System.IO.FileInfo(RutaCBB) - - If ImagenCBB.Exists Then - ImgCBB = String.Format("file://{0}", ImagenCBB.FullName) - Else - ImgCBB = "" - End If - - End If - - If DtConceptos.Rows.Count > 0 Then - Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - - If Imagen.Exists Then - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - 'EMPRESA - params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("RegimenFiscal", UsuarioActual.Empresa.Regimen)) - 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. {Telefono}")) - params.Add(New ReportParameter("SerieFolio", SerieFolio)) - params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC)) - params.Add(New ReportParameter("DomicilioExpedicion", LugarExpedicion)) - 'CLIENTE - params.Add(New ReportParameter("ClienteNombre", ClienteNombre)) - params.Add(New ReportParameter("ClienteRFC", ClienteRFC)) - params.Add(New ReportParameter("UsoCFDi", ClienteUsoCFDi)) - 'TRANSPORTE - params.Add(New ReportParameter("MedioTransporte", MedioTransporte)) - params.Add(New ReportParameter("TransporteInternacional", TransporteInternacional)) - params.Add(New ReportParameter("PermisoSTCC", PermisoSTCC)) - params.Add(New ReportParameter("NumPermiso", NumPermiso)) - - params.Add(New ReportParameter("Aseguradora", AseguradoraRespCivil)) - params.Add(New ReportParameter("NumPoliza", NumPolizaSeguroRespCivil)) - - params.Add(New ReportParameter("NombreAseguradoraMedioAmbiente", NombreAseguradoraMedioAmbiente)) - params.Add(New ReportParameter("NumPolizaSeguroMedioAmbiente", NumPolizaSeguroMedioAmbiente)) - - params.Add(New ReportParameter("NombreAseguradoraCarga", NombreAseguradoraCarga)) - params.Add(New ReportParameter("NumPolizaSeguroCarga", NumPolizaSeguroCarga)) - - params.Add(New ReportParameter("PlacaVM", PlacaVM)) - params.Add(New ReportParameter("AnioVM", AnioModeloVM)) - 'TIMBRADO - params.Add(New ReportParameter("FolioFiscal", FolioFiscal)) - params.Add(New ReportParameter("QR", ImgCBB)) - params.Add(New ReportParameter("SelloCFDI", SelloCFDi)) - params.Add(New ReportParameter("CertificadoContribuyente", NoCertificadoSAT)) - params.Add(New ReportParameter("CadenaOriginal", CadenaOriginal)) - params.Add(New ReportParameter("SerieCertificadoSAT", NoSerieCertificado)) - params.Add(New ReportParameter("FechaCertificacion", FechaCertificacion.ToString("dd/MM/yyyy HH:mm:ss"))) - params.Add(New ReportParameter("SelloSAT", SelloSAT)) - 'TOTALES - params.Add(New ReportParameter("SubTotal", SubTotal.ToString())) - params.Add(New ReportParameter("Descuentos", Descuentos.ToString())) - params.Add(New ReportParameter("Total", Total.ToString())) - - - - ' [@CertificadoContribuyente] - '[@CadenaOriginal] - - Dim lrds As New List(Of ReportDataSource) - - Dim rds As New ReportDataSource - rds.Name = "DataSet1" - rds.Value = DtConceptos - lrds.Add(rds) - - Dim rds2 As New ReportDataSource - rds2.Name = "DataSet2" - rds2.Value = DtUbicaciones - lrds.Add(rds2) - - Dim rds3 As New ReportDataSource - rds3.Name = "DataSet3" - rds3.Value = DtMercancias - lrds.Add(rds3) - - Dim rds4 As New ReportDataSource - rds4.Name = "DataSet4" - rds4.Value = DtOperadores - lrds.Add(rds4) - - ImprimirPDF("Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc", lrds, params, SerieFolio) - End If - End If - End Sub - -#End Region - -#Region "OP = 'DesXmlTra' - IMPRIME XML TRASLADO" - - Private Sub DescargaXMLTraslado(Parametros As Hashtable) - If Parametros("TIPODOCTO") IsNot Nothing AndAlso Parametros("TIPODOCTO").ToString <> "" Then - Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf") - Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, Parametros("EXT").ToString, Parametros("TIPODOCTO").ToString, Parametros("FOLIO").ToString, Exten) - Dim Archivo As New System.IO.FileInfo(Path) - - If Archivo.Exists Then - HttpContext.Current.Response.Clear() - HttpContext.Current.Response.ClearContent() - HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf") - HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) - HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) - HttpContext.Current.Response.TransmitFile(Path) - 'HttpContext.Current.Response.Flush() - HttpContext.Current.Response.End() - End If - Archivo = Nothing - End If - End Sub - -#End Region - -#Region "OP = 'DesPdfTra' - IMPRIME PDF TRASLADO" - - Private Sub DescargaPDFTraslado(Parametros As Hashtable) - If Parametros("TIPODOCTO") IsNot Nothing AndAlso Parametros("TIPODOCTO").ToString <> "" Then - Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf") - Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, Parametros("EXT").ToString, Parametros("TIPODOCTO").ToString, Parametros("FOLIO").ToString, Exten) - Dim Archivo As New System.IO.FileInfo(Path) - Dim cvetimbre As Integer = IfNull(Parametros("CVETIMBRE"), "0").ToString.ToEntero - - If Archivo.Exists Then - DescargarArchivoPDFTraslado(Archivo, Path) - Else - If Exten = "pdf" Then - Dim ObjTimbres As New Timbres(Parametros("TIPODOCTO").ToString, cvetimbre, UsuarioActual) - - GeneraPDFFactura(ObjTimbres.ObjFactura) - Archivo = New System.IO.FileInfo(Path) - If Archivo.Exists Then - DescargarArchivoPDFTraslado(Archivo, Path) - End If - End If - End If - Archivo = Nothing - End If - End Sub - Private Sub DescargarArchivoPDFTraslado(Archivo As System.IO.FileInfo, path As String) - HttpContext.Current.Response.Clear() - HttpContext.Current.Response.ClearContent() - HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "text/xml", "application/pdf") - HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) - HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) - HttpContext.Current.Response.TransmitFile(path) - 'HttpContext.Current.Response.Flush() - HttpContext.Current.Response.End() - End Sub - - Private Sub GeneraPDFFactura(ObjFactura As Modelos.Factura) - Try - ' Dim objFactura = CreaObjetosTraslado(CveMovimiento) - If ObjFactura IsNot Nothing Then - PdfFactura(ObjFactura) - ObjFactura.Dispose() - End If - Catch ex As Exception - OnError("Ocurrió un error al generar el PDF", ex) - End Try - End Sub - - Private Function CreaObjetosTraslado(CveMovimiento As Integer) As Modelos.Factura - Dim Folio As Integer = -1 - Dim CveAlmacen As Integer = 0 - Dim DtDetalle As DataTable = Nothing - - Using ObjMovimientos As New ClsInventarios - If ObjMovimientos.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjMovimientos.DtResultados.Rows.Count = 1 Then - Folio = ObjMovimientos.Folio - CveAlmacen = ObjMovimientos.CveAlmacen - End If - - If ObjMovimientos.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then - DtDetalle = ObjMovimientos.DtResultados.Copy - End If - End Using - - If Folio > 0 AndAlso DtDetalle IsNot Nothing AndAlso DtDetalle.Rows.Count > 0 Then - Dim ObjFactura = New Modelos.Factura - ObjFactura.Version = "3.3" - ObjFactura.CveUsuario = UsuarioActual.CveUsuario - ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa - ObjFactura.TipoCambio = 0 - ObjFactura.ConvertirPesos = False - ObjFactura.TipoCambio = 0 - ObjFactura.CveMoneda = 1 - ObjFactura.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {ObjFactura.CveMoneda} ") - ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", "CveMoneda = 1") - ObjFactura.MonedaAbreviatura = GlobalDTMonedas.FiltroPrimeroValor("Abreviatura", $"CveMoneda = {ObjFactura.CveMoneda} ") - ObjFactura.TipoDocto = "Tra" - ObjFactura.RefDocto = "" - ObjFactura.Folio = Folio - ObjFactura.Serie = "Tra" - ObjFactura.CveMesa = -1 - ObjFactura.Fecha = Now - ObjFactura.CvePrePoliza = -1 - ObjFactura.FechaPago = Now - ObjFactura.MotivoDescuento = "" - ObjFactura.Observaciones = "" - ObjFactura.FechaEjecucion = Now - ObjFactura.UsuarioCreo = UsuarioActual.Usuario - ObjFactura.CveCondicionEntrega = -1 - ObjFactura.CondicionEntrega = "" - ObjFactura.NumeroCuenta = "" - ObjFactura.CondicionesPago = 0 - ObjFactura.FormaPago = 0 - ObjFactura.PedidoContrato = "" - ObjFactura.OrdenCompra = "" - ObjFactura.NumeroContrato = "" - ObjFactura.NumeroDescripcionContrato = "" - ObjFactura.DescripcionContrato = "" - ObjFactura.CveCorte = -1 - ObjFactura.TipoDocumento = "Traspaso" - ObjFactura.Alfa1 = "" - ObjFactura.Alfa2 = "" - ObjFactura.Alfa3 = "" - ObjFactura.Descuento = 0 - ObjFactura.Amortizacion = 0 - ObjFactura.CveContrato = 0 - ObjFactura.CveVendedor = 0 - ObjFactura.FechaVencimiento = Now - ObjFactura.TipoEstatus = 0 - ObjFactura.Det_OrdenCompra = "" - ObjFactura.Inv_CveEstatusEntrega = 0 - ObjFactura.FormaPago33 = "" - ObjFactura.MetodoPago33 = "" - ObjFactura.UsoCFDI = "" - ObjFactura.CveClienteSucursal = 0 - Dim CveSubProyecto As Integer = -1 - If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {CveAlmacen}").Rows.Count > 0 Then - CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {CveAlmacen}").Rows(0)("CveSubProyecto").ToString.ToEntero - End If - ObjFactura.CveSubProyecto = CveSubProyecto - ObjFactura.CveSubProyectoCobranza = CveSubProyecto - ObjFactura.CveSubProyectoEjecucion = CveSubProyecto - - ObjFactura.SubTotal = 0 - ObjFactura.Descuento = 0 - ObjFactura.Amortizacion = 0 - ObjFactura.IVA = 0 - ObjFactura.RetIVA = 0 - ObjFactura.RetISR = 0 - ObjFactura.IEPS = 0 - ObjFactura.Total = 0 - ObjFactura.RFCReceptor = "XAXX010101000" - - - - DtDetalle.Columns.Add("TotalImporte", Type.GetType("System.Double")) - DtDetalle.Columns.Add("Descuento", Type.GetType("System.Double")) - DtDetalle.Columns.Add("UM") - DtDetalle.Columns.Add("SATClaveUM") - DtDetalle.Columns.Add("SATClaveProdServ") - DtDetalle.Columns.Add("Noidentificacion") - DtDetalle.Columns.Add("CuentaPredial") - DtDetalle.Columns.Add("Obs") - DtDetalle.Columns.Add("ImporteIVA", Type.GetType("System.Double")) - DtDetalle.Columns.Add("PorcentajeIVA", Type.GetType("System.Double")) - - - For Each Row As DataRow In DtDetalle.Rows - Row("TotalImporte") = Row("Total") - Row("Descuento") = 0 - Row("UM") = Row("UnidadMedida") - Row("SATClaveUM") = Row("SATClaveUnidadMedida") - Row("SATClaveProdServ") = Row("SATClavePS") - Row("Noidentificacion") = Row("Codigo") - Row("CuentaPredial") = "" - Row("Obs") = Row("Observaciones") - Row("ImporteIVA") = 0 - Row("PorcentajeIVA") = 0 - Next - - 'DETALLES - ObjFactura.DtDetalle = DtDetalle - - 'SUBPROYECTO - ObjFactura.SetSubProyectoMatriz(Me) - ObjFactura.SetSubProyecto(Me) - - ObjFactura.Inv_CveMovimiento = CveMovimiento - - ObjFactura.Timbre = PreParaTimbreTraslado(ObjFactura) - Return ObjFactura - End If - - Return Nothing - - End Function - Private Function PreParaTimbreTraslado(Obj As Modelos.Factura) As CFDITimbre - Dim Timbre As New CFDITimbre - Timbre.Comprobante.TipoComprobante = "T" - Timbre.Comprobante.Folio = Obj.Folio.ToString - Timbre.Comprobante.Serie = Obj.Serie - Timbre.Comprobante.Fecha = Obj.Fecha - Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 - Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 - Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT - Timbre.Comprobante.SubTotal = Obj.SubTotal - Timbre.Comprobante.Descuentos = Obj.Descuento - Timbre.Comprobante.Moneda = Obj.MonedaSAT - Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString) - Timbre.Comprobante.Total = Obj.Total - - Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP - Timbre.Comprobante.Confirmacion = "" - - Timbre.Receptor.RFC = "XAXX010101000" - Timbre.Receptor.Nombre = UsuarioActual.Empresa.Empresa - Timbre.Receptor.UsoCFDI = "P01" - - Dim totSubTotal As Decimal = Obj.SubTotal - Dim totIVA As Decimal = Obj.IVA - Dim totRetIVA As Decimal = Obj.RetIVA - Dim totRetISR As Decimal = Obj.RetISR - Dim i As Integer = 1 - - 'DETALLES - Dim tPS As String = "" - - For Each drr As DataRow In Obj.DtDetalle.Rows - If drr("PS").ToString.Length = 1 Then - tPS = drr("Obs").ToString - Else - If drr("PS").ToString.Length = 0 Then - tPS = "" - Else - tPS = String.Format("{0} {1}", drr("PS"), drr("Obs")) - End If - End If - - 'CONDICIONANTE, ESPECIAL - If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" 'LES COMENTAN QUE NO DEBE IR LA ETIQUETA DE LA UNIDAD EN EL PRODUCTO - - Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal, - .Descripcion = tPS, - .ValorUnitario = drr("PU").ToString.ToDecimal, - .Importe = drr("TotalImporte").ToString.ToDecimal, - .Descuento = drr("Descuento").ToString.ToDecimal, - .Unidad = drr("UM").ToString, - .ClaveUnidad = drr("SATClaveUM").ToString, - .ClaveProdServ = drr("SATClaveProdServ").ToString, - .Noidentificacion = drr("Noidentificacion").ToString, - .CuentaPredial = drr("CuentaPredial").ToString} - 'VERIFICA SUMA SUBTOTALES - If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'PROCESO DE AJUSTA DE DECIMALES - concepto.Importe = totSubTotal - End If - totSubTotal = totSubTotal - concepto.Importe - - 'SIEMPRE ESTAMOS AGREGANDO EL IVA - 'concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal}) - - Timbre.Conceptos.Add(concepto) - i += 1 - Next - Return Timbre - End Function - -#End Region - -#Region " OP = 'Vta,Fact' - IMPRIME PDF VENTAS" - Private Sub DescargaFacturaVenta(Parametros As Hashtable) - If Parametros("CVEVENTA") IsNot Nothing AndAlso Parametros("CVEVENTA").ToString.ToEntero > 0 Then - Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf") - Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, Parametros("EXT").ToString, Parametros("TIPODOCTO").ToString, Parametros("SERIEFOLIO").ToString, Exten) - Dim Archivo As New System.IO.FileInfo(Path) - - If Archivo.Exists Then - HttpContext.Current.Response.Clear() - HttpContext.Current.Response.ClearContent() - HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name).ToLower = "xml", "application/xml", "application/pdf") - HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) - HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) - HttpContext.Current.Response.TransmitFile(Path) - 'HttpContext.Current.Response.Flush() - HttpContext.Current.Response.End() - End If - Archivo = Nothing - End If - End Sub - Public Sub imprimirFacturaVenta(CveVenta As Integer, AplicaPagare As String, Optional GuardarPDF As Boolean = False) - Dim ObjVentas As New ClsVentas - Dim Vta As Modelos.Factura = Nothing - - Dim TmpDTImpuestos = New DataTable - TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String)) - TmpDTImpuestos.Columns.Add("Importe", GetType(Double)) - TmpDTImpuestos.Columns.Add("Orden", GetType(Integer)) - - Dim TmpDTImpuestosIVAIEPS = New DataTable - TmpDTImpuestosIVAIEPS.Columns.Add("Impuesto", GetType(String)) - TmpDTImpuestosIVAIEPS.Columns.Add("tasa", GetType(String)) - TmpDTImpuestosIVAIEPS.Columns.Add("Importe", GetType(Double)) - TmpDTImpuestosIVAIEPS.Columns.Add("Orden", GetType(Integer)) - - If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then - Dim dtVentas As DataTable = ObjVentas.DtResultados - - ' se rellenan los campos de la factura - Vta = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.Factura) - - Vta.MonedaAbreviatura = dtVentas(0)("Abreviatura").ToString - 'se rellena la sucursal - 'Vta.Subproyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SucursalModel) - Dim CveSubProyecto As Integer = dtVentas(0)("CveSubProyecto").ToString().ToEntero() - - Dim DtSubProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=dtVentas(0)("CveEmpresa").ToString().ToEntero()) - - Vta.SubProyecto = DtSubProyecto.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel) - 'Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel) - Vta.Cliente = New Modelos.ClienteModel - Vta.Cliente.Nombre = dtVentas(0)("ClienteNombre").ToString - Vta.Cliente.Telefono = dtVentas(0)("Telefono").ToString - Vta.Cliente.Direccion = dtVentas(0)("ClienteDireccion").ToString - Vta.Cliente.CP = dtVentas(0)("CPCliente").ToString - Vta.Cliente.Ciudad = dtVentas(0)("ClienteCiudad").ToString - Vta.Cliente.Localidad = dtVentas(0)("ClienteLocalidad").ToString - Vta.Cliente.Estado = dtVentas(0)("ClienteEstado").ToString - Vta.Cliente.Pais = dtVentas(0)("ClientePais").ToString - Vta.Cliente.RFC = dtVentas(0)("ClienteRFC").ToString - Vta.Cliente.Colonia = dtVentas(0)("ColoniaCliente").ToString - Vta.AtencionA = dtVentas(0)("AtencionA").ToString - Vta.Cliente.NoExt = dtVentas(0)("ClienteNoExt").ToString - Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString - Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString - Vta.Cliente.Mail = dtVentas(0)("Mail").ToString - Vta.Cliente.MailCotizacion = dtVentas(0)("SucClienteCorreo").ToString - Vta.RefDocto = dtVentas(0)("Ref").ToString - Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero - Vta.NumeroCuenta = dtVentas(0)("NumCtaPago").ToString - Vta.Version = dtVentas(0)("Version").ToString - - Vta.NumeroContrato = dtVentas(0)("NumeroContrato").ToString - Vta.DescripcionContrato = dtVentas(0)("DescripcionContrato").ToString - Vta.NumeroDescripcionContrato = If($"{dtVentas(0)("NumeroContrato").ToString} - {dtVentas(0)("NumeroLicitacion").ToString}" = " - ", "", $"{dtVentas(0)("NumeroContrato").ToString} {If(dtVentas(0)("NumeroLicitacion").ToString = "", "", $" - Licitación: {dtVentas(0)("NumeroLicitacion").ToString}")}") - - Vta.PedidoContrato = If(dtVentas(0)("PedidoContrato").ToString = "", Vta.NumeroDescripcionContrato, $"{dtVentas(0)("PedidoContrato").ToString} {If(Vta.NumeroDescripcionContrato = "", "", $" / {Vta.NumeroDescripcionContrato}") }") - Vta.Kilometraje = If(dtVentas(0)("Kilometraje").ToString = "", -1, dtVentas(0)("Kilometraje").ToString.ToDecimal) - 'Vta.PedidoContrato = dtVentas(0)("PedidoContrato").ToString - - Vta.ClienteSucursal = New Modelos.SucursalModel - Vta.ClienteSucursal.Direccion = dtVentas(0)("SucClienteDireccion").ToString - Vta.ClienteSucursal.NoExt = dtVentas(0)("SucClienteNoExt").ToString - Vta.ClienteSucursal.NoInt = dtVentas(0)("SucClienteNoInt").ToString - Vta.ClienteSucursal.Colonia = dtVentas(0)("SucClienteColonia").ToString - Vta.ClienteSucursal.CP = dtVentas(0)("SucClienteCP").ToString - Vta.ClienteSucursal.Municipio = dtVentas(0)("SucClienteCiudad").ToString - Vta.ClienteSucursal.Estado = dtVentas(0)("SucClienteEstado").ToString - Vta.ClienteSucursal.Pais = dtVentas(0)("SucClientePais").ToString - Vta.ClienteSucursal.Localidad = dtVentas(0)("SucClienteLocalidad").ToString - Vta.ClienteSucursal.CorreoSucursal = dtVentas(0)("SucClienteCorreo").ToString - Vta.ClienteSucursal.TelefonoSucursal = dtVentas(0)("SucClienteTelefono").ToString - Vta.ClienteSucursal.Sucursal = dtVentas(0)("SucursalCliente").ToString - Vta.ClienteSucursal.ImprimeNombreSucursal = dtVentas(0)("ImprimeNombreSucursal").ToString - - Vta.EnviarA = New Modelos.EnviarAModel - Vta.EnviarA.CveDireccionEnvio = dtVentas(0)("CveDireccionEnvio").ToString.ToEntero - Vta.EnviarA.EnvioDireccion = dtVentas(0)("EnvioDireccion").ToString - Vta.EnviarA.EnvioColonia = dtVentas(0)("EnvioColonia").ToString - Vta.EnviarA.EnvioCiudad = dtVentas(0)("EnvioCiudad").ToString - Vta.EnviarA.EnvioEstado = dtVentas(0)("EnvioEstado").ToString - Vta.EnviarA.EnvioCP = dtVentas(0)("EnvioCP").ToString - Vta.EnviarA.EnvioTel = dtVentas(0)("EnvioTel").ToString - - Vta.EnviarA.EnvioNoExt = dtVentas(0)("EnvioNoExt").ToString - Vta.EnviarA.EnvioNoInt = dtVentas(0)("EnvioNoInt").ToString - Vta.EnviarA.EnvioContacto = dtVentas(0)("EnvioContacto").ToString - Vta.EnviarA.EnvioDepartamento = dtVentas(0)("EnvioDepartamento").ToString - - 'Vta.EnviarA.EnvioPedidoContrato = dtVentas(0)("EnvioPedidoContrato").ToString - - 'INE COMPLEMENTO - If dtVentas(0)("TipoComite").ToString <> "" Then - Dim INE As New Modelos.ComplementoINE - INE.INETipoComite = dtVentas(0)("TipoComite").ToString - INE.INETipoProceso = dtVentas(0)("TipoProceso").ToString - INE.INEIdContabilidad = dtVentas(0)("IdContabilidad").ToString.ToEntero - Vta.ComplementoINE = INE - End If - - - Dim DR As DataRow = TmpDTImpuestos.NewRow() - If dtVentas(0)("SubTotal").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString.ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() - If dtVentas(0)("Descuento").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString.ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() - If dtVentas(0)("Amortizacion").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString.ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() - If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() - If dtVentas(0)("IVA").ToString.ToDouble >= 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR) - - 'solo para eclipse, que muesre un subtotal debajo de IVA - If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() - If dtVentas(0)("RetIVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString.ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() - If dtVentas(0)("RetISR").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString.ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() - - If dtVentas(0)("IEPS").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "IEPS" : DR("Importe") = dtVentas(0)("IEPS").ToString.ToDouble : DR("Orden") = 80 : TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() - - If dtVentas(0)("Total").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString.ToDouble : DR("Orden") = 100 : TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() - - If ObjVentas.GetVentaDetalle(CveVenta) Then 'Obtenemos el Detalle de la Oorden de Compra - Vta.DtDetalle = ObjVentas.DtResultados - End If - - If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then - - Dim dtImpuesto As DataTable = ObjVentas.DtResultados - If dtImpuesto.Rows.Count > 0 Then - For Each Row As DataRow In dtImpuesto.Rows - Dim Orden = 80 - If Row("Importe").ToString.ToDouble <> 0 Then - DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString - DR("Importe") = Row("Importe").ToString.ToDouble - DR("Orden") = Orden - TmpDTImpuestos.Rows.Add(DR) - DR = TmpDTImpuestos.NewRow() - Orden = Orden + 1 - End If - Next - End If - Vta.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC") - - End If - - 'TmpDT DESGLOSE DE IMPUESTOS 3.3 - For Each dr1 As DataRow In Vta.DtDetalle.Rows - Dim DrIVA As DataRow = Nothing - Dim DrIEPS As DataRow = Nothing - - Try - DrIVA = TmpDTImpuestosIVAIEPS.Select("Impuesto = 'IVA'")(0) - Catch ex As Exception - DrIVA = Nothing - End Try - - If DrIVA IsNot Nothing Then - DrIVA("Importe") = DrIVA("Importe").ToString.ToDouble + dr1("ImporteIVA").ToString.ToDouble - TmpDTImpuestosIVAIEPS.AcceptChanges() - Else - Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow() - If dr1("PorcentajeIVA").ToString.ToDouble > 0 Then - DR2("Impuesto") = "IVA" : DR2("tasa") = String.Format("{0} %", dr1("PorcentajeIVA").ToString.ToDouble() * 100) : DR2("Importe") = dr1("ImporteIVA").ToString.ToDouble : DR2("Orden") = "1" - TmpDTImpuestosIVAIEPS.Rows.Add(DR2) - TmpDTImpuestosIVAIEPS.AcceptChanges() - End If - End If - - Try - DrIEPS = TmpDTImpuestosIVAIEPS.Select($"Impuesto = 'IEPS' AND tasa = '{dr1("PorcentajeIEPS").ToString.ToDouble * 100} %'")(0) - Catch ex As Exception - DrIEPS = Nothing - End Try - - If DrIEPS IsNot Nothing Then - DrIEPS("Importe") = DrIEPS("Importe").ToString.ToDouble + dr1("ImporteIEPS").ToString.ToDouble - TmpDTImpuestosIVAIEPS.AcceptChanges() - Else - Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow() - If dr1("PorcentajeIEPS").ToString.ToDouble > 0 Then - DR2("Impuesto") = "IEPS" : DR2("tasa") = String.Format("{0} {1}", dr1("PorcentajeIEPS").ToString.ToDouble * 100, "%") : DR2("Importe") = dr1("ImporteIEPS").ToString.ToDouble : DR2("Orden") = If(dr1("PorcentajeIEPS").ToString = "0.03", "2", If(dr1("PorcentajeIEPS").ToString = "0.06", "3", If(dr1("PorcentajeIEPS").ToString = "0.07", "4", If(dr1("PorcentajeIEPS").ToString = "0.09", "5", "")))) - TmpDTImpuestosIVAIEPS.Rows.Add(DR2) - TmpDTImpuestosIVAIEPS.AcceptChanges() - End If - End If - - Next - - Vta.DtDesgloseImpuestos = TmpDTImpuestosIVAIEPS.FiltraParametros("", Orderby:="Orden ASC") - - If ObjVentas.GetVentasFirmas(CveVenta) Then - Vta.DtFirmas = ObjVentas.DtResultados - End If - - - 'CFDI RELACIONADO - If dtVentas(0)("CveTipoRelacion").ToString.ToEntero > 0 Then - Vta.Timbre.Comprobante.TipoComprobante = If(Vta.TipoDocto.Contiene("Ing", "Ant"), "I", If(Vta.TipoDocto.Contiene("Egs", "Dev"), "E", "")) - If Vta.Timbre.Comprobante.TipoComprobante = "E" Then - If Vta.TipoDocto.Contiene("Egs") Then - Vta.Timbre.CFDIRelacionados.TipoRelacion = "01" - Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso" - End If - If Vta.TipoDocto.Contiene("Dev") Then - Vta.Timbre.CFDIRelacionados.TipoRelacion = "03" - Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" - End If - Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString) - End If - ' cuando es refacturacoin es cfdirelacionado, con relacion 04 - If Vta.Timbre.Comprobante.TipoComprobante = "I" Then 'AndAlso (dtVentas(0)("Total").ToString.ToDouble = dtVentas(0)("TotalPadre").ToString.ToDouble) Then - Vta.Timbre.CFDIRelacionados.TipoRelacion = "04" - Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString) - Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Refacturación de Ingreso" - End If - - If UsuarioActual.Empresa.Funcionalidad(592) = "1" Then - - Dim RowTipoRelacion As DataRow = GlobalDTVtaTiposRelacion().FiltroPrimero($"CveTipoRelacion = {dtVentas(0)("CveTipoRelacion").ToString.ToEntero}") - - Vta.Timbre.CFDIRelacionados.TipoRelacion = RowTipoRelacion("SATClaveTipoRelacion").ToString() - Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = RowTipoRelacion("SATTipoRelacion").ToString() - - If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then - Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") - End If - - End If - - End If - - 'If UsuarioActual.CveEmpresa.Contiene(72, 80, 119) Then - If Vta.Timbre.Comprobante.TipoComprobante = "I" Then 'AndAlso (dtVentas(0)("Total").ToString.ToDouble = dtVentas(0)("TotalPadre").ToString.ToDouble) Then - If ObjVentas.GetVentaRefacturacion(dtVentas(0)("CveVentaPadre").ToString.ToEntero) Then - If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then - ObjVentas.DtResultados.Columns.Add("Importe", GetType(Decimal)) - ObjVentas.DtResultados.Rows(0)("Importe") = ObjVentas.DtResultados.Rows(0)("Total") - Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") - If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then - Vta.DtNCVinculadas = ObjVentas.DtResultados - Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") - If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then - If Vta.TipoDocto.Contiene("Dev") Then - Vta.Timbre.CFDIRelacionados.TipoRelacion = "03" - Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" - End If - End If - End If - End If - End If - Else - 'If dtVentas(0)("TipoDocto").ToString.Contiene("Ing", "Ant", "Rem") Then - ' 'carga as notas de credito vinculadas - ' If ObjVentas.GetVentasAntNC(CveVenta, -1) Then - ' Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") - ' End If - 'End If - - If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then - - If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then - Vta.DtNCVinculadas = ObjVentas.DtResultados - Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") - If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then - If Vta.TipoDocto.Contiene("Dev") Then - Vta.Timbre.CFDIRelacionados.TipoRelacion = "03" - Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" - End If - End If - End If - End If - End If - - If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso (Vta.DtDocumentosRelacionados Is Nothing OrElse Vta.DtDocumentosRelacionados.Rows.Count = 0) Then - If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then - Vta.DtNCVinculadas = ObjVentas.DtResultados - Vta.DtDocumentosRelacionados = ObjVentas.DtResultados '.FiltraParametros("FolioFiscal IS NOT NULL") - If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then - If Vta.TipoDocto.Contiene("Ing") Then - Vta.Timbre.CFDIRelacionados.TipoRelacion = "01" - Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso" - End If - - If Vta.TipoDocto.Contiene("Egs") Then - Vta.Timbre.CFDIRelacionados.TipoRelacion = "01" - Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso" - End If - - If Vta.TipoDocto.Contiene("Dev") Then - Vta.Timbre.CFDIRelacionados.TipoRelacion = "03" - Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" - End If - End If - End If - End If - - 'SI ES TIPO RELACION 07- APLICACION DE ANTICIPOS - If dtVentas(0)("CveTipoRelacion").ToString.ToEntero = 7 Then - Dim RowTipoRelacion As DataRow = GlobalDTVtaTiposRelacion().FiltroPrimero($"CveTipoRelacion = {dtVentas(0)("CveTipoRelacion").ToString.ToEntero}") - - Vta.Timbre.CFDIRelacionados.TipoRelacion = RowTipoRelacion("SATClaveTipoRelacion").ToString() - Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = RowTipoRelacion("SATTipoRelacion").ToString() - - If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then - Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") - End If - End If - - 'End If - - 'If Vta.TipoDocto.Contiene("Egs", "Dev", "Ant") Then - ' 'If ObjVentas.GetVentasAntNC(-1, CveVenta) Then - ' ' Vta.DtNCVinculadas = ObjVentas.DtResultados - ' 'End If - ' If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then - ' Vta.DtNCVinculadas = ObjVentas.DtResultados - ' End If - 'End If - - End If - ObjVentas.Dispose() - - Dim Guardar As Boolean = If(GuardarPDF, True, If(AplicaPagare = "1", False, True)) - - If Not IsNothing(Vta) Then - '04/05/2018 - Se agrega seccion pruebas para generar factura venta .mrt para PyME - If UsuarioActual.Empresa.CvePlataforma = 2 Then - GeneraPDFVtaPyMe(Vta, "PDF") - Else - ImprimirbytesPDF(PdfFactura(Vta, AplicaPagare:=AplicaPagare, Guardar:=Guardar), Vta.SerieFolio, "PDF") - Vta = Nothing - End If - End If - - End Sub -#End Region - -#Region " - OP = 'Alm' - REPORTE ENTRADAS ALMACEN " - - Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer) - Dim ObjInventarios As New ClsInventarios - - ObjInventarios.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) - - Dim CveConcepto As Integer = ObjInventarios.CveConcepto - Dim Folio As String = ObjInventarios.Folio.ToString - Dim CveCompra = ObjInventarios.CveCompra - Dim Fecha As String = ObjInventarios.Fecha.ToShortDateString - Dim FechaHora As DateTime = ObjInventarios.FechaHora - Dim Almacen As String = ObjInventarios.Almacen - Dim RazonSocial As String = ObjInventarios.Proveedor - Dim RazonSocialOC As String = ObjInventarios.RazonSocialOC - Dim CalleOrigen As String = ObjInventarios.CalleOrigen - Dim NoExtOrigen As String = ObjInventarios.NoExtOrigen - Dim ColoniaOrigen As String = ObjInventarios.ColoniaOrigen - Dim LocalidadOrigen As String = ObjInventarios.LocalidadOrigen - Dim MunicipioOrigen As String = ObjInventarios.MunicipioOrigen - Dim EstadoOrigen As String = ObjInventarios.EstadoOrigen - Dim PaisOrigen As String = ObjInventarios.PaisOrigen - Dim CPOrigen As String = ObjInventarios.CPOrigen - Dim CalleDestino As String = ObjInventarios.CalleDestino - Dim NoExtDestino As String = ObjInventarios.NoExtDestino - Dim ColoniaDestino As String = ObjInventarios.ColoniaDestino - Dim LocalidadDestino As String = ObjInventarios.LocalidadDestino - Dim MunicipioDestino As String = ObjInventarios.MunicipioDestino - Dim EstadoDestino As String = ObjInventarios.EstadoDestino - Dim PaisDestino As String = ObjInventarios.PaisDestino - Dim CPDestino As String = ObjInventarios.CPDestino - Dim Proveedor As String = ObjInventarios.Proveedor - Dim Remision As String = ObjInventarios.Remision - Dim SubProyecto As String = ObjInventarios.SubProyecto - Dim Observaciones As String = ObjInventarios.Observaciones - Dim ObservacionesSolicitud As String = ObjInventarios.DtResultados.FiltroPrimeroValor("ObservacionesSolicitud") - Dim NombreCapturo As String = ObjInventarios.NombreCapturo - Dim NombreEntrego As String = ObjInventarios.DtResultados.FiltroPrimeroValor("Entrego") - Dim CveAlmacen As Integer = ObjInventarios.CveAlmacen - Dim Recibio As String = ObjInventarios.Recibio - Dim PuestoRecibio As String = ObjInventarios.PuestoRecibio - Dim PuestoEnrego As String = ObjInventarios.PuestoEntrego - Dim ResponsableCarga As String = ObjInventarios.ResponsableCarga - Dim ResponsableRecibio As String = ObjInventarios.ResponsableRecibio - Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo") - - If String.IsNullOrEmpty(Recibio) Then - Dim ObjRH As New ClsRH - If ObjRH.GetPersonal(ObjInventarios.CvePersonal, UsuarioActual.CveEmpresa) AndAlso ObjRH.DtResultados.Rows.Count > 0 Then - Recibio = ObjRH.DtResultados.Rows(0)("NombreCompleto").ToString - End If - ObjRH.Dispose() - End If - - Dim Personal As String = ObjInventarios.NombreCompleto - Dim Capturo As String = ObjInventarios.NombreCapturo - Dim AlmacenDestino As String = ObjInventarios.AlmacenDestino - Dim CveConsignacion As Integer = ObjInventarios.CveConsignacion - Dim Moneda As String = ObjInventarios.Moneda - Dim CveMoneda As Integer = ObjInventarios.CveMoneda - Dim FolioVenta As String = ObjInventarios.FolioVenta - Dim FolioOC As String = ObjInventarios.FolioOC - Dim FolioInterno As String = ObjInventarios.FolioInterno - - Dim CveCliente As Integer = ObjInventarios.CveCliente - Dim NombreCliente As String = ObjInventarios.NombreCliente - Dim CveClienteSucursal As Integer = ObjInventarios.CveClienteSucursal - Dim DepartamentoEntrega As String = ObjInventarios.DepartamentoEntrega - Dim FechaMovimiento As Date = ObjInventarios.FechaRegistro - - Dim CveMovimientoRelacionado As Integer = -1 - Dim FolioRelacionado As String = "" - Dim CveConceptoMovtoRelacionado As Integer = -1 - - Dim CveTipoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacen}").ToString.ToEntero - - 'VERIFICA SI TIENE MOVIMIENTO VIRTUAL RELACIONADO - If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then - CveMovimientoRelacionado = ObjInventarios.DtResultados.Rows(0)("CveMtoRel").ToString().ToEntero() - If CveConcepto.Contiene(2, 3, 26, 27, 40, 41) AndAlso ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero() > 0 Then - FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioVirtual") - CveMovimientoRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero - CveConceptoMovtoRelacionado = 37 - ElseIf CveConcepto.Contiene(36, 37) Then - FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado") - CveConceptoMovtoRelacionado = 3 - ElseIf CveConcepto.Contiene(2) AndAlso CveTipoAlmacen.Contiene(24, 25) Then - FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado") - CveConceptoMovtoRelacionado = 3 - End If - End If - - - - Dim CantidadProductos As Decimal = 0 - Dim CantidadUsados As Decimal = 0 - - If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Or CveConcepto = 40 Then 'SALIDA Y DEVOLUCION DEL CLIENTE - If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa) Then - DtMovimientos = ObjInventarios.DtResultados - - If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveMovimientoRelacionado > 0 Then - If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then - Dim CveAlmacenRelacionado As Integer = ObjInventarios.DtResultados.Rows(0)("CveAlmacen").ToString().ToEntero() - Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero - - 'SI TIENE RELACIONADO UN MOVIMIENTO VIRTUAL DEBE AGREGAR ESTE MOVIMIENTO A LA IMPRESION - If CveTipoAlmacenRelacionado.Contiene(24, 25) Then - If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then - Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy() - CantidadUsados = DtUsados.SUM("Cantidad").ToDecimal() - Dim IndexInicialUsados As Integer = DtMovimientos.Rows.Count + 1 - - For Each Dr As DataRow In DtUsados.Rows - Dr("No") = IndexInicialUsados - IndexInicialUsados += 1 - Next - - DtMovimientos.Merge(DtUsados) - End If - End If - End If - End If - - DtMovimientos.Columns("No").AutoIncrement = True - DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1 - DtMovimientos.Columns("No").AutoIncrementStep = 1 - Dim keys(1) As DataColumn - keys(0) = DtMovimientos.Columns("No") - DtMovimientos.PrimaryKey = keys - End If - Else - If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then - DtMovimientos = ObjInventarios.DtResultados.Copy() - CantidadProductos = DtMovimientos.SUM("Cantidad").ToDecimal() - If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveMovimientoRelacionado > 0 Then - If ObjInventarios.GetMovimientos(CveMovimientoRelacionado, -1, -1, UsuarioActual.CveEmpresa) Then - Dim CveAlmacenRelacionado As Integer = ObjInventarios.CveAlmacen - Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero - - 'SI TIENE RELACIONADO UN MOVIMIENTO VIRTUAL DEBE AGREGAR ESTE MOVIMIENTO A LA IMPRESION - If CveTipoAlmacenRelacionado.Contiene(24, 25) Then - If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then - Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy() - CantidadUsados = DtUsados.SUM("Cantidad").ToDecimal() - Dim IndexInicialUsados As Integer = DtMovimientos.Rows.Count + 1 - - For Each Dr As DataRow In DtUsados.Rows - Dr("No") = IndexInicialUsados - IndexInicialUsados += 1 - Next - - DtMovimientos.Merge(DtUsados) - End If - End If - End If - End If - - DtMovimientos.Columns("No").AutoIncrement = True - DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1 - DtMovimientos.Columns("No").AutoIncrementStep = 1 - Dim keys(1) As DataColumn - keys(0) = DtMovimientos.Columns("No") - DtMovimientos.PrimaryKey = keys - End If - End If - - If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCompra > 0 Then - If ObjInventarios.RecepcionAlmacenGet(CveCompra, -1, -1, UsuarioActual.CveEmpresa, -1) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then - Dim DtFaltante As DataTable = ObjInventarios.DtResultados.FiltraParametros("CantidadF > 0") - If DtFaltante.Rows.Count > 0 Then - Dim SbPendientes As New StringBuilder - SbPendientes.AppendFormat("Los siguientes productos quedaron pendientes por recibir:") - For Each Row As DataRow In DtFaltante.Rows - SbPendientes.AppendFormat(" PS:{0} Cant.:{1:N0},", Row("CodigoPS"), Row("CantidadF")) - Next - SbPendientes.Remove(SbPendientes.Length - 1, 1) - - SbPendientes.AppendFormat(" Total Cant.:{0:N0}, Total Costo:{1:N2}", DtFaltante.SUM("CantidadF"), DtFaltante.SUM("Total")) - - If Not String.IsNullOrEmpty(Observaciones) Then - Observaciones = SbPendientes.ToString() + ".
" + Observaciones - Else - Observaciones = SbPendientes.ToString() - End If - End If - DtFaltante.Dispose() - End If - End If - - If CveTipoAlmacen = 20 Then - CveConcepto = 24 - End If - - ObjInventarios.Dispose() - If RazonSocial = "" AndAlso NombreCliente <> "" Then RazonSocial = NombreCliente - - ImprimePDFAlmacen(CveConcepto, CveCompra, Folio.ToString, Fecha, Almacen, SubProyecto, Observaciones, Recibio, - Personal, Capturo, AlmacenDestino, CveConsignacion, CveMoneda, Moneda, FolioVenta, FolioOC, - FolioInterno, FechaHora, ObservacionesSolicitud, DepartamentoEntrega, RazonSocialOC, - Remision, Proveedor, CalleOrigen, NoExtOrigen, ColoniaOrigen, LocalidadOrigen, MunicipioOrigen, - EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino, - MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio, - PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente, - CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego, - CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo) - - End Sub - Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera - If CveMoneda > 1 Then - DtMovimientos.Columns("PU").ColumnName = "PUx" - DtMovimientos.Columns("Total").ColumnName = "Totalx" - DtMovimientos.Columns("PUExtranjero").ColumnName = "PU" - DtMovimientos.Columns("TotalExtranjero").ColumnName = "Total" - End If - End Sub - Private Sub ImprimePDFAlmacen(CveConcepto As Integer, CveCompra As Integer, Folio As String, Fecha As String, Almacen As String, SubProyecto As String, Observaciones As String, Recibio As String, - Personal As String, Capturo As String, AlmacenDestino As String, CveConsignacion As Integer, CveMoneda As Integer, Moneda As String, FolioVenta As String, FolioOC As String, - FolioInterno As String, FechaHora As DateTime, ObservacionesSolicitud As String, DepartamentoEntrega As String, RazonSocialOC As String, - Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String, - EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String, - 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 = "") - - - Select Case CveConcepto - Case 1 'INICIAL - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Inicial.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - Dim SBDireccion As New StringBuilder() - - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Concepto", "Inventario Inicial")) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - 'params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2))) - 'params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2))) - 'params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2))) - params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - - If Archivo.Exists Then - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios") - Else - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - - If Imagen.Exists Then - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - ImprimirPDF("Empresas/Grales/Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios") - End If - - Case 2, 32, 33, 36 ' E N T R A D A S - - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - - Dim dr As DataRow = Nothing - If CveCompra > 0 Then - 'buscar en compras, para mandar los datos - Dim ObjCompra As New ClsCompras() - If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then - dr = ObjCompra.DtResultados.Rows(0) - End If - ObjCompra.Dispose() - - End If - - - Dim params As New List(Of ReportParameter) - If Archivo.Exists Then - - If UsuarioActual.CveEmpresa.Contiene(4, 145) Then - params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").ToString, ""))) - End If - If UsuarioActual.CveEmpresa = 119 Then - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - params.Add(New ReportParameter("RazonSocialOC", RazonSocialOC)) - params.Add(New ReportParameter("RazonSocial", RazonSocial)) - params.Add(New ReportParameter("Remision", Remision)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FolioOC", FolioOC)) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, ""))) - params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, ""))) - End If - - Dim ConceptoFormato As String = "ENTRADA DE ALMACÉN" - If CveConcepto = 32 Then ConceptoFormato = "ENTRADA POR AJUSTE" - If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL" - - 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH - If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146) Then - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Concepto", ConceptoFormato)) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - - - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, ""))) - - If UsuarioActual.CveEmpresa.Contiene(72, 80) Then - params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss")))) - Else - params.Add(New ReportParameter("Fecha", Fecha)) - End If - - If UsuarioActual.CveEmpresa = 72 Then - params.Add(New ReportParameter("CveTipoAlmacen", CveTipoAlmacen.ToString())) - End If - - params.Add(New ReportParameter("Observaciones", Observaciones)) - - If UsuarioActual.CveEmpresa.Contiene(72, 80) Then - params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, ""))) - params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, ""))) - params.Add(New ReportParameter("RFCProveedor", If(CveCompra > 0, dr("RFC").ToString, ""))) - params.Add(New ReportParameter("TelefonoProveedor", If(CveCompra > 0, dr("Telefono").ToString, ""))) - params.Add(New ReportParameter("ContactoProveedor", If(CveCompra > 0, dr("ContactoNombre").ToString, ""))) - params.Add(New ReportParameter("ImporteLetra", String.Format("({0})", DtMovimientos.SUM("Total").ToString.ToDouble.Texto2Letras(CveMoneda).ToUpper))) - params.Add(New ReportParameter("SubTotal", If(CveCompra > 0, (dr("SubTotal").ToString.ToDouble).FormatoNumero, ""))) - params.Add(New ReportParameter("Descuentos", If(CveCompra > 0, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), ""))) - params.Add(New ReportParameter("IVA", If(CveCompra > 0, (dr("IVA").ToString.ToDouble).FormatoNumero, ""))) - params.Add(New ReportParameter("Total", If(CveCompra > 0, (dr("Total").ToString.ToDouble).FormatoNumero, ""))) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) - params.Add(New ReportParameter("NombreEntrego", String.Format("REVISÓ ALMACÉN{0}{1}", vbCrLf, Recibio))) - params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ ALMACÉN{0}{1}", vbCrLf, Recibio))) - Else - params.Add(New ReportParameter("NombreRecibio", String.Format(Recibio))) - params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - End If - - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios") - ElseIf UsuarioActual.CveEmpresa = 140 Then - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - Dim concepto As String = "" - If CveConcepto.Contiene(2, 32, 33) Then - concepto = "ENTRADA DE ALMACÉN" - ElseIf CveConcepto.Contiene(36) Then - concepto = "ENTRADA VIRTUAL" - End If - - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Concepto", concepto)) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("FacturadoA", NombreCliente)) - params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, ""))) - params.Add(New ReportParameter("Descuentos", If(CveCompra > 0 AndAlso dr IsNot Nothing, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), ""))) - params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), ""))) - params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), ""))) - 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString())) - params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado)) - - ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") - Else - - params.Add(New ReportParameter("TipoDocumento", String.Format("Compras {0}", Almacen))) - params.Add(New ReportParameter("Fecha", If(CveCompra > 0, dr("Fecha").ToString.ToDate.ToShortDateString, ""))) - params.Add(New ReportParameter("Folio", Folio.ToString)) - params.Add(New ReportParameter("NumeroOrden", If(CveCompra > 0, dr("OCVinculada").ToString, ""))) - params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, ""))) - params.Add(New ReportParameter("NombreProveedor", RazonSocial)) - params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, ""))) - params.Add(New ReportParameter("CiudadProveedor", " ")) - params.Add(New ReportParameter("EstadoProveedor", " ")) - params.Add(New ReportParameter("RFCProveedor", If(CveCompra > 0, dr("RFC").ToString, ""))) - - params.Add(New ReportParameter("SubTotal", If(CveCompra > 0, (dr("SubTotal").ToString.ToDouble).FormatoNumero, ""))) - params.Add(New ReportParameter("Descuentos", If(CveCompra > 0, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), ""))) - params.Add(New ReportParameter("IVA", If(CveCompra > 0, dr("IVA").ToString.FormatoNumero(2), ""))) - params.Add(New ReportParameter("Total", If(CveCompra > 0, dr("Total").ToString.FormatoNumero(2), ""))) - params.Add(New ReportParameter("TotalLetra", If(CveCompra > 0, String.Format("({0})", dr("Total").ToString.ToDouble.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper), ""))) - - params.Add(New ReportParameter("Observaciones", If(CveCompra > 0, dr("Observaciones").ToString, ""))) - params.Add(New ReportParameter("Capturo", If(CveCompra > 0, dr("NombreCapturo").ToString, ""))) - - PUanacExtr(CveMoneda) - - - ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") - End If - - - Else - - ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Concepto", "ENTRADA DE ALMACÉN")) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("FacturadoA", NombreCliente)) - params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, ""))) - params.Add(New ReportParameter("Descuentos", If(CveCompra > 0 AndAlso dr IsNot Nothing, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), ""))) - params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), ""))) - params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), ""))) - params.Add(New ReportParameter("Observaciones", Observaciones)) - 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - If (UsuarioActual.CveEmpresa = 72) Then - params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) - End If - ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") - End If - - Case 3, 16, 37, 40 ' S A L I D A S - 'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72)) - 'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72)) - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - Dim concepto As String = "" - If CveConcepto.Contiene(3, 40) Then - concepto = "SALIDA DE ALMACÉN" - ElseIf CveConcepto = 37 Then - concepto = "SALIDA VIRTUAL" - Else - concepto = "SALIDA DE ALMACÉN POR RECONSTRUCCIÓN" - End If - - If DtMovimientos(0)("CveAlmacen").ToString.ToEntero.Contiene(77, 146, 147, 148, 229, 342, 359, 360, 361, 362) Then - If Archivo2.Exists Then - If UsuarioActual.CveEmpresa.Contiene(72, 80) Then - Dim CiudadSucursal As String = "" - Dim DomicilioSucursal As String = "" - Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString) - - If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal - - If DtMovimientos(0)("CveVenta").ToString <> "" Then - CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) - DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) - Else - DomicilioSucursal = DomicilioCliente - End If - - params.Add(New ReportParameter("Concepto", "Salida de Almacén Por Consumo Interno")) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss")))) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreCompleto", DtMovimientos(0)("NombreCompleto").ToString)) - params.Add(New ReportParameter("Puesto", DtMovimientos(0)("Puesto").ToString)) - params.Add(New ReportParameter("Turno", DtMovimientos(0)("Turno").ToString)) - params.Add(New ReportParameter("Departamento", DtMovimientos(0)("Departamento").ToString)) - params.Add(New ReportParameter("CentroCosto", DtMovimientos(0)("CentroCosto").ToString)) - params.Add(New ReportParameter("CodigoEmpleado", DtMovimientos(0)("CodigoEmpleado").ToString)) - params.Add(New ReportParameter("Celular", DtMovimientos(0)("Celular").ToString)) - params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString)) - params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("NombreEntrego", Capturo)) - params.Add(New ReportParameter("NombreRecibio", Recibio)) - - End If - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios") - End If - Else - If Archivo.Exists Then - - 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH - If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146) Then - Dim CiudadSucursal As String = "" - Dim DomicilioSucursal As String = "" - Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString) - - If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal - - If DtMovimientos(0)("CveVenta").ToString <> "" Then - CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) - DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) - Else - - DomicilioSucursal = DomicilioCliente - End If - - - If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then - - params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss")))) - params.Add(New ReportParameter("SucursalCliente", DtMovimientos(0)("SucCliente").ToString)) - params.Add(New ReportParameter("RFCCliente", DtMovimientos(0)("RFC").ToString)) - params.Add(New ReportParameter("DireccionCliente", DomicilioCliente)) - params.Add(New ReportParameter("TelefonoCliente", DtMovimientos(0)("SucClienteTelefono").ToString)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) - params.Add(New ReportParameter("VendedorNombre", DtMovimientos(0)("Vendedor").ToString)) - - If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then - Dim StrEnvioDi As New StringBuilder - StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString) - If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString) - If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString) - - params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString)) - params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("EnvioNoExt").ToString)) - params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("EnvioNoInt").ToString)) - params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString)) - params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString)) - params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString)) - params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString)) - params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString)) - params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString)) - params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString)) - params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString)) - params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString)) - Else - Dim StrEnvioDi As New StringBuilder - StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString) - If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString) - If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString) - - Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString() - Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString() - - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString)) - params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("SucClienteNoExt").ToString)) - params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("SucClienteNoInt").ToString)) - params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("SucClienteColonia").ToString)) - params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("SucClienteCiudad").ToString)) - params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("SucClienteEstado").ToString)) - params.Add(New ReportParameter("EnvioContacto", EnvioContacto)) - params.Add(New ReportParameter("EnvioDepartamento", DepartamentoEnvio)) - params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("SucClienteCP").ToString)) - params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString)) - params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString)) - params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString)) - End If - End If - - params.Add(New ReportParameter("Concepto", concepto)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) - params.Add(New ReportParameter("NombreEntrego", Capturo)) - params.Add(New ReportParameter("NombreRecibio", Recibio)) - params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal)) - params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString)) - params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString)) - params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - - If UsuarioActual.CveEmpresa = 72 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno)) - If UsuarioActual.CveEmpresa = 80 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno)) - If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("Fecha", Fecha)) - - - 'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios") - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") - ElseIf UsuarioActual.CveEmpresa = 140 Then - - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Concepto", concepto)) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) - params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente))) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Descuentos", "")) - params.Add(New ReportParameter("IVA", "")) - params.Add(New ReportParameter("Total", "")) - 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("NombreRecibio", Recibio)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString())) - params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado)) - params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro)) - - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") - Else - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("SubProyecto", SubProyecto)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", Capturo)) - params.Add(New ReportParameter("NombreRecibio", Recibio)) - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") - End If - - Else - Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta)) - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Concepto", concepto)) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) - params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente))) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Descuentos", "")) - params.Add(New ReportParameter("IVA", "")) - params.Add(New ReportParameter("Total", "")) - 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("NombreRecibio", Recibio)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - - - - If UsuarioActual.CveEmpresa.Contiene(143) Then - Dim objclientes As New ClsClientes - If objclientes.GetClientes(-1, DtMovimientos(0)("Nombre").ToString, "-1", "-1", "-1", "-1", "-1", -1, 143) Then - params.Add(New ReportParameter("NombreComercial", objclientes.DtResultados(0)("NombreComercial").ToString)) - End If - If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then - Dim StrEnvioDi As New StringBuilder - StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString) - If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString) - If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString) - - params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString)) - params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString)) - params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString)) - params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString)) - params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString)) - params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString)) - params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString)) - params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString)) - params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString)) - Else - Dim StrEnvioDi As New StringBuilder - StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString) - If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString) - If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString) - - Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString() - Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString() - - params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString)) - params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString)) - params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString)) - params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString)) - params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString)) - params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString)) - params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString)) - params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString)) - params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString)) - End If - End If - - - If A.Exists Then - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") - Else - ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") - End If - - End If - End If - - Case 4 ' ENTRADA POR DESARMADO - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Concepto", "Entrada por Desarmado de Paquete")) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Descuentos", "")) - params.Add(New ReportParameter("IVA", "")) - params.Add(New ReportParameter("Total", "")) - 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - params.Add(New ReportParameter("FacturadoA", NombreCliente)) - If (UsuarioActual.CveEmpresa = 72) Then - params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) - End If - - ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Desarmado - {0}", Folio.ToString), RDSName:="DsInventarios") - - Case 5 'SALIDA POR ARMADO - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Concepto", "Salida por Armado de Paquete")) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Descuentos", "")) - params.Add(New ReportParameter("IVA", "")) - params.Add(New ReportParameter("Total", "")) - 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - params.Add(New ReportParameter("FacturadoA", NombreCliente)) - If (UsuarioActual.CveEmpresa = 72) Then - params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) - End If - ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida por Armado - {0}", Folio.ToString), RDSName:="DsInventarios") - - Case 6, 23 ' ENTRADA RESGUARDO - If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then - Dim params As New List(Of ReportParameter) - If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Concepto", CveConcepto.ToString)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", Personal)) - params.Add(New ReportParameter("Responsable", Personal)) - params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - params.Add(New ReportParameter("LogoPath", logouri)) - If DtMovimientos.COUNT("Serie") > 0 Then - params.Add(New ReportParameter("MostrarSerieLote", "1")) - Else - params.Add(New ReportParameter("MostrarSerieLote", "0")) - End If - Else - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) - params.Add(New ReportParameter("NombreRecibio", Personal)) - params.Add(New ReportParameter("Responsable", Personal)) - params.Add(New ReportParameter("AlmacenOrigen", Almacen)) - params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) - params.Add(New ReportParameter("NombreProveedor", Proveedor)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - End If - - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") - Else - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - Dim TipoResponsable As String = "" - Dim Responsable As String = "" - - Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" - - If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then - Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" - End If - - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Fecha", Fecha)) - 'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) - params.Add(New ReportParameter("AlmacenOrigen", Almacen)) - params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) - - Dim Mov As New ClsInventarios - If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then - If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then - TipoResponsable = "Personal" - Responsable = Recibio - 'Responsable = Mov.DtResultados(0)("RazonSocial").ToString - ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then - TipoResponsable = "Cliente" - Responsable = Mov.DtResultados(0)("Nombre").ToString - ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then - TipoResponsable = "Proveedor" - Responsable = Mov.DtResultados(0)("RazonSocial").ToString - End If - End If - Mov.Dispose() - - params.Add(New ReportParameter("Responsable", Responsable)) - params.Add(New ReportParameter("TipoResponsable", TipoResponsable)) - - ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") - End If - Case 7 ' SALIDA RESGUARDO - If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then - Dim params As New List(Of ReportParameter) - If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Concepto", CveConcepto.ToString)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) - params.Add(New ReportParameter("Responsable", Personal)) - params.Add(New ReportParameter("NombreRecibio", Personal)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - params.Add(New ReportParameter("LogoPath", logouri)) - If DtMovimientos.COUNT("Serie") > 0 Then - params.Add(New ReportParameter("MostrarSerieLote", "1")) - Else - params.Add(New ReportParameter("MostrarSerieLote", "0")) - End If - Else - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) - params.Add(New ReportParameter("NombreRecibio", Personal)) - params.Add(New ReportParameter("Responsable", Personal)) - params.Add(New ReportParameter("AlmacenOrigen", Almacen)) - params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) - params.Add(New ReportParameter("NombreProveedor", Proveedor)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - - End If - - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") - Else - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - Dim TipoResponsable As String = "" - Dim Responsable As String = "" - - Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" - - If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then - Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" - End If - - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Fecha", Fecha)) - 'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) - params.Add(New ReportParameter("AlmacenOrigen", Almacen)) - params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) - - Dim Mov As New ClsInventarios - If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then - If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then - TipoResponsable = "Personal" - Responsable = Recibio - 'Responsable = Mov.DtResultados(0)("RazonSocial").ToString - ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then - TipoResponsable = "Cliente" - Responsable = Mov.DtResultados(0)("Nombre").ToString - ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then - TipoResponsable = "Proveedor" - Responsable = Mov.DtResultados(0)("RazonSocial").ToString - End If - End If - Mov.Dispose() - - params.Add(New ReportParameter("Responsable", Responsable)) - params.Add(New ReportParameter("TipoResponsable", TipoResponsable)) - - ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") - End If - - Case 8, 26 ' T R A S L A D O - S A L I D A - - Dim params As New List(Of ReportParameter) - Dim RutaFormato As String = "{0}Formatos\Traslado.rdlc" - - params.Add(New ReportParameter("CveConcepto", "8")) 'FolioTraspaso.ToString - 'params.Add(New ReportParameter("TipoTraslado", "AVISO")) 'FolioTraspaso.ToString - params.Add(New ReportParameter("SubProyecto", String.Format("Traslado de: {0} A {1}", Almacen, AlmacenDestino))) 'DdlAlmacenDestino.SelectedItem.ToString - params.Add(New ReportParameter("Folio", Folio)) 'FolioTraspaso.ToString - params.Add(New ReportParameter("Fecha", Fecha)) 'TxtFecha.Text - params.Add(New ReportParameter("NombreEntrego", Capturo)) 'UsuarioActual.Nombre - params.Add(New ReportParameter("NombreAccion", Recibio)) 'TxtResponsable.Text - params.Add(New ReportParameter("Accion", "RECIBE")) 'Antes Trasladó - params.Add(New ReportParameter("Observaciones", Observaciones)) - - - Dim DTCliente As New DataTable - Dim SBDireccionO As New StringBuilder() - Dim SBDireccionD As New StringBuilder() - Dim CveCliente As Integer = 0 - Dim CveDireccionEnvio As Integer = 0 - Dim ClienteNombre = "", EnvioContacto = "", EnvioDireccion = "", EnvioColonia = "", EnvioCiudad = "", EnvioEstado = "", ClientePais = "", EnvioCP = "", Contrato = "", - Paqueteria = "", NumContrato = "", Guia = "" - - Dim CveContrato As Integer = 0 - If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then - CveContrato = DtMovimientos(0)("CveContrato").ToString.ToEntero - End If - - If CveContrato > 0 Then - Contrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}") - NumContrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}") - CveCliente = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero - CveDireccionEnvio = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveDireccionEnvio", $"CveContrato = {CveContrato}").ToEntero - - If CveCliente > 0 Then - DTCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}") - Dim ObjVentas As New ClsClientes - If ObjVentas.DireccionEnvioGet(CveDireccionEnvio, -1, -1) Then - If ObjVentas.DtResultados.Rows.Count > 0 Then - ClienteNombre = DTCliente.FiltroPrimeroValor("Nombre") - ClientePais = DTCliente.FiltroPrimeroValor("PAIS") - EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString - EnvioDireccion = ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString - EnvioColonia = ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString - EnvioCiudad = ObjVentas.DtResultados.Rows(0)("EnvioCiudad").ToString - EnvioCP = ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString - EnvioEstado = ObjVentas.DtResultados.Rows(0)("EnvioEstado").ToString - Else - ClienteNombre = DTCliente.FiltroPrimeroValor("Nombre") - EnvioContacto = DTCliente.FiltroPrimeroValor("Contacto") - EnvioDireccion = DTCliente.FiltroPrimeroValor("Direccion") - EnvioColonia = DTCliente.FiltroPrimeroValor("Colonia") - EnvioCiudad = DTCliente.FiltroPrimeroValor("Ciudad") - EnvioEstado = DTCliente.FiltroPrimeroValor("Estado") - ClientePais = DTCliente.FiltroPrimeroValor("PAIS") - EnvioCP = DTCliente.FiltroPrimeroValor("CP") - End If - End If - ObjVentas.Dispose() - End If - - params.Add(New ReportParameter("ClienteNombre", ClienteNombre)) - params.Add(New ReportParameter("EnvioContacto", EnvioContacto)) - params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion)) - params.Add(New ReportParameter("EnvioColonia", EnvioColonia)) - params.Add(New ReportParameter("EnvioCiudad", EnvioCiudad)) - params.Add(New ReportParameter("EnvioEstado", EnvioEstado)) - params.Add(New ReportParameter("ClientePais", ClientePais)) - params.Add(New ReportParameter("EnvioCP", EnvioCP)) - params.Add(New ReportParameter("Contrato", Contrato)) - params.Add(New ReportParameter("Paqueteria", Paqueteria)) - params.Add(New ReportParameter("NumeroContrato", NumContrato)) - params.Add(New ReportParameter("Guia", Guia)) - - 'CAMBIAMOS DE FORMATO POR QUE TIENE CONTRATO - RutaFormato = "{0}Formatos\TrasladoAlmacen.rdlc" - 'CAMBIAMOS LA OBSERVACION POR LA DE LA SOLICITUD DE TRASLADO - Observaciones = ObservacionesSolicitud - End If - - If UsuarioActual.CveEmpresa = 119 Then - If CalleOrigen.Length > 0 Then - SBDireccionO.AppendFormat("{0}", CalleOrigen) - If NoExtOrigen.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", NoExtOrigen) - If ColoniaOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Col: {0}", ColoniaOrigen) - If CPOrigen.Length > 0 Then SBDireccionO.AppendFormat(", CP: {0}", CPOrigen) - If LocalidadOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Loc: {0}", LocalidadOrigen) - If MunicipioOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Cd: {0}", MunicipioOrigen) - If EstadoOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Edo: {0}", EstadoOrigen) - If PaisOrigen.Length > 0 Then SBDireccionO.AppendFormat(", País: {0}", PaisOrigen) - params.Add(New ReportParameter("DireccionOrigen", SBDireccionO.ToString)) - End If - If CalleDestino.Length > 0 Then - SBDireccionD.AppendFormat("{0}", CalleDestino) - If NoExtDestino.Length > 0 Then SBDireccionD.AppendFormat(", No.Ext: {0}", NoExtDestino) - If ColoniaDestino.Length > 0 Then SBDireccionD.AppendFormat(", Col: {0}", ColoniaDestino) - If CPDestino.Length > 0 Then SBDireccionD.AppendFormat(", CP: {0}", CPDestino) - If LocalidadDestino.Length > 0 Then SBDireccionD.AppendFormat(", Loc: {0}", LocalidadDestino) - If MunicipioDestino.Length > 0 Then SBDireccionD.AppendFormat(", Cd: {0}", MunicipioDestino) - If EstadoDestino.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", EstadoDestino) - If PaisDestino.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", PaisDestino) - params.Add(New ReportParameter("DireccionDestino", SBDireccionD.ToString)) - End If - End If - - - Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta)) - If Archivo.Exists Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - If UsuarioActual.CveEmpresa = 140 Then - params.Add(New ReportParameter("Origen", Almacen)) - params.Add(New ReportParameter("Destino", AlmacenDestino)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("CantidadProductos", CantidadProductos.ToString())) - params.Add(New ReportParameter("CantidadUsados", CantidadUsados.ToString())) - params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString())) - params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado)) - ElseIf UsuarioActual.CveEmpresa = 153 Then - params.Add(New ReportParameter("Origen", Almacen)) - params.Add(New ReportParameter("Destino", AlmacenDestino)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - 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)) - Else - 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)) - End If - - If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("AlmacenOrigen", Almacen)) - params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) - params.Add(New ReportParameter("ResponsableCarga", ResponsableCarga)) - params.Add(New ReportParameter("ResponsableRecibio", ResponsableRecibio)) - - DtMovimientos = DtMovimientos.FiltraParametros("", "PS") - End If - - ImprimirPDF(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios") - Else - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - - If Imagen.Exists Then - ' params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - params.Add(New ReportParameter("Origen", Almacen)) - params.Add(New ReportParameter("Destino", AlmacenDestino)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios") - End If - - - - Case 9, 27 ' T R A S L A D O - E N T R A D A - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - - params.Add(New ReportParameter("CveConcepto", "9")) 'FolioTraspaso.ToString - 'params.Add(New ReportParameter("TipoTraslado", "RECEPCIÓN")) 'FolioTraspaso.ToString - params.Add(New ReportParameter("SubProyecto", String.Format("Traslado de: {0} A {1}", AlmacenDestino, Almacen))) 'DdlAlmacenDestino.SelectedItem.ToString - params.Add(New ReportParameter("Folio", Folio)) 'FolioTraspaso.ToString - params.Add(New ReportParameter("Fecha", Fecha)) 'TxtFecha.Text - params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text - 'params.Add(New ReportParameter("NombreEntrego", Capturo)) 'UsuarioActual.Nombre - params.Add(New ReportParameter("NombreAccion", Recibio)) 'TxtResponsable.Text - params.Add(New ReportParameter("Accion", "RECIBIÓ")) - - If Archivo.Exists Then - 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)) - - If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("AlmacenOrigen", Almacen)) - params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) - DtMovimientos = DtMovimientos.FiltraParametros("", "PS") - ElseIf UsuarioActual.CveEmpresa = 140 Then - params.Add(New ReportParameter("CantidadProductos", "500")) - params.Add(New ReportParameter("CantidadUsados", "500")) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte - params.Add(New ReportParameter("Destino", Almacen)) - - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString())) - params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado)) - ElseIf UsuarioActual.CveEmpresa = 153 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte - params.Add(New ReportParameter("Destino", Almacen)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - End If - - - - ImprimirPDF(String.Format("{0}Formatos\Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios") - Else - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - params.Add(New ReportParameter("Origen", Almacen)) - params.Add(New ReportParameter("Destino", AlmacenDestino)) - - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios") - End If - - Case 10 'E N T R A D A P O R C O N S I G N A C I Ó N - If CveConsignacion > 0 Then - 'buscar en compras, para mandar los datos - Dim ObjInventarios As New ClsInventarios() - If ObjInventarios.GetConsignacionesImpresion(CveConsignacion) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then - Dim dr As DataRow = ObjInventarios.DtResultados.Rows(0) - Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("TipoDocumento", "Entrada por Consignación")) - params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) - params.Add(New ReportParameter("Folio", Folio.ToString)) - params.Add(New ReportParameter("FacturaProveedor", dr("SerieFolio").ToString)) - params.Add(New ReportParameter("NombreProveedor", dr("RazonSocial").ToString)) - params.Add(New ReportParameter("DireccionProveedor", dr("Direccion").ToString)) - params.Add(New ReportParameter("RFCProveedor", dr("RFC").ToString)) - params.Add(New ReportParameter("Capturo", dr("NombreCapturo").ToString)) - params.Add(New ReportParameter("Moneda", Moneda)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - PUanacExtr(CveMoneda) - ImprimirPDF(String.Format("{0}Formatos/EntradasConsignacion.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada por Consignacion - {0}", Folio.ToString), RDSName:="DsInventarios") - End If - ObjInventarios.Dispose() - - End If - Case 11 'S A L I D A P O R C O N S I G N A C I Ó N - Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("SubProyecto", SubProyecto)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - params.Add(New ReportParameter("Observaciones", Observaciones)) - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasConsignacion.rdlc", DtMovimientos, params, String.Format("Salida por Consignacion - {0}", Folio.ToString), RDSName:="DsInventarios") - Case 12 'D E V O L U C I O N D E C O N S I G N A C I O N - Dim params As New List(Of ReportParameter) - Dim ObjInventarios As New ClsInventarios() - - If ObjInventarios.GetConsignacionesImpresion(CveConsignacion) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then - - Dim dr As DataRow = ObjInventarios.DtResultados.Rows(0) - params.Add(New ReportParameter("CveConcepto", "12")) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("SubProyecto", SubProyecto)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - params.Add(New ReportParameter("NombreProveedor", dr("RazonSocial").ToString)) - params.Add(New ReportParameter("DireccionProveedor", dr("Direccion").ToString)) - params.Add(New ReportParameter("CiudadProveedor", " ")) - params.Add(New ReportParameter("EstadoProveedor", " ")) - params.Add(New ReportParameter("RFCProveedor", dr("RFC").ToString)) - params.Add(New ReportParameter("Consignacion", dr("SerieFolio").ToString)) - 'params.Add(New ReportParameter("Serie", Serie)) - 'params.Add(New ReportParameter("SubTotal", (dr("SubTotal").ToString.ToDouble).FormatoNumero)) - 'params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2))) - 'params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2))) - 'params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2))) - 'params.Add(New ReportParameter("TotalLetra", String.Format("({0})", dr("Total").ToString.ToDouble.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper))) - - End If - - If UsuarioActual.CveEmpresa = 119 Then - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - End If - 'ObjInventarios.Dispose() - Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString))) - If ObjInventarios.GetMovimientosDetalle(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, UsuarioActual.CveEmpresa) Then - Dim TotalFinal As Double = ObjInventarios.DtResultados.SUM("Total") * 1.16 - Dim dr As DataRow = ObjInventarios.DtResultados.Rows(0) - 'params.Add(New ReportParameter("IVA", dr("IVA").ToString)) - params.Add(New ReportParameter("TotalLetra", String.Format("({0})", TotalFinal.Texto2Letras().ToUpper))) - - End If - ObjInventarios.Dispose() - - 'If CveCompra > 0 Then - ' Dim ObjCompra As New ClsCompras() - ' If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then - ' Dim dr As DataRow = ObjCompra.DtResultados.Rows(0) - ' params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) - ' params.Add(New ReportParameter("Serie", dr("SerieFolio").ToString)) - ' params.Add(New ReportParameter("SubTotal", (dr("SubTotal").ToString.ToDouble).FormatoNumero)) - ' params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2))) - ' params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2))) - ' params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2))) - ' params.Add(New ReportParameter("TotalLetra", String.Format("({0})", (dr("Total").ToString.ToDouble).Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper))) - - ' End If - ' ObjCompra.Dispose() - 'End If - - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionConsignacion.rdlc", DtMovimientos, params, String.Format("Devolucion por Consignacion - {0}", Folio), RDSName:="DsInventarios") - Case 13 'D E V O L U C I O N D E P R O V E E D O R - Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta)) - - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("SubProyecto", SubProyecto)) - params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - - Dim ObjCompra As New ClsCompras() - If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then - Dim dr As DataRow = ObjCompra.DtResultados.Rows(0) - Dim FechaCompra As Date = dr("FechaMovto").ToString.ToDate - Dim FechaVencimiento As Date = dr("FechaVencimiento").ToString.ToDate - params.Add(New ReportParameter("Fecha", FechaCompra.ToShortDateString)) - params.Add(New ReportParameter("FechaVencimiento", FechaVencimiento.ToShortDateString)) - params.Add(New ReportParameter("Plazo", DateDiff(DateInterval.Day, FechaCompra, FechaVencimiento).ToString)) - 'params.Add(New ReportParameter("Folio", Folio.ToString)) - params.Add(New ReportParameter("Serie", dr("Serie").ToString)) - - 'params.Add(New ReportParameter("NumeroOrden", dr("OCVinculada").ToString)) - params.Add(New ReportParameter("FacturaProveedor", dr("SerieFolio").ToString)) - params.Add(New ReportParameter("NombreProveedor", dr("RazonSocial").ToString)) - params.Add(New ReportParameter("DireccionProveedor", dr("Direccion").ToString)) - params.Add(New ReportParameter("CiudadProveedor", " ")) - params.Add(New ReportParameter("EstadoProveedor", " ")) - params.Add(New ReportParameter("RFCProveedor", dr("RFC").ToString)) - params.Add(New ReportParameter("CodigoProveedor", dr("FolioMovimiento").ToString)) - params.Add(New ReportParameter("OrigenCompra", dr("SerieFolio").ToString)) - params.Add(New ReportParameter("SubTotal", (dr("SubTotal").ToString.ToDouble).FormatoNumero)) - params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2))) - params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2))) - params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2))) - params.Add(New ReportParameter("TotalLetra", String.Format("({0})", dr("Total").ToString.ToDouble.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper))) - - params.Add(New ReportParameter("Observaciones", dr("Observaciones").ToString)) - params.Add(New ReportParameter("Capturo", dr("NombreCapturo").ToString)) - - Else - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - End If - ObjCompra.Dispose() - - If Not Archivo.Exists Then - - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - ImprimirPDF(String.Format("Empresas/Grales/Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios") - Else - ImprimirPDF(String.Format("{0}Formatos\DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios") - End If - - 'ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionProveedor.rdlc", DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios") - Case 14 'E N T R E G A P O R G A R A N T I A - - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - - If UsuarioActual.CveEmpresa = 72 Then - Dim SisEmpresa As New ClsSisEmpresas() - Dim EmpInfo As DataRow - Dim domicilioFiscal As String = "" - If SisEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then - EmpInfo = SisEmpresa.DtResultados.Rows(0) - domicilioFiscal = String.Format("{0} No.{1}, Col. {2}, CP:{3},{4},{5},MEXICO. RFC:{6}", EmpInfo.Item("Direccion"), EmpInfo.Item("NoExt"), EmpInfo.Item("Colonia"), EmpInfo.Item("CP"), EmpInfo.Item("Ciudad"), EmpInfo.Item("Estado"), EmpInfo.Item("RFC")) - params.Add(New ReportParameter("DomicilioFiscal", domicilioFiscal)) - End If - End If - - Dim CiudadSucursal As String = "" - Dim DomicilioSucursal As String = "" - If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal - - If DtMovimientos(0)("CveVenta").ToString <> "" Then - CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) - DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) - End If - - params.Add(New ReportParameter("Concepto", "Entrada por garantia")) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) - params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal)) - params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString)) - params.Add(New ReportParameter("EnviarA", "")) - params.Add(New ReportParameter("Entrega", "")) - params.Add(New ReportParameter("Observaciones", Observaciones)) - - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/EntradaGarantia.rdlc", DtMovimientos, params, String.Format("EntradaPorGarantia{0}", Folio.ToString), RDSName:="DsInventarios") - - Case 15 'S A L I D A G A R A N T I A - - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - - 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH - Dim CiudadSucursal As String = "" - Dim DomicilioSucursal As String = "" - If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal - - If DtMovimientos(0)("CveVenta").ToString <> "" Then - CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) - DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) - End If - - - params.Add(New ReportParameter("Concepto", "Salida Garantía")) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) - params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal)) - params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString)) - params.Add(New ReportParameter("EnviarA", "")) - params.Add(New ReportParameter("Entrega", "")) - params.Add(New ReportParameter("Observaciones", Observaciones)) - - ' If UsuarioActual.CveEmpresa = 72 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno)) - - 'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios") - If (UsuarioActual.CveEmpresa = 72) Then - params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) - End If - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios") - 'Else - ' params.Add(New ReportParameter("Folio", Folio)) - ' params.Add(New ReportParameter("Fecha", Fecha)) - ' params.Add(New ReportParameter("Almacen", Almacen)) - ' params.Add(New ReportParameter("SubProyecto", SubProyecto)) - ' params.Add(New ReportParameter("Observaciones", Observaciones)) - ' params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - ' ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") - 'End If - - - Case 18 'D E V O L U C I O N D E L C L I E N T E - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionCliente.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - - If Archivo.Exists Then - 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES - 'If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then - Dim CiudadSucursal As String = "" - Dim DomicilioSucursal As String = "" - - If DtMovimientos(0)("CveVenta").ToString <> "" Then - CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) - DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) - End If - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE")) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) - params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("NombreRecibio", Recibio)) - params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal)) - params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString)) - params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString)) - params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - - If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - If UsuarioActual.CveEmpresa = 72 Then - Dim SisEmpresa As New ClsSisEmpresas() - Dim EmpInfo As DataRow - Dim domicilioFiscal As String = "" - If SisEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then - EmpInfo = SisEmpresa.DtResultados.Rows(0) - domicilioFiscal = String.Format("{0} No.{1}, Col. {2}, CP:{3},{4},{5},MEXICO. RFC:{6}", EmpInfo.Item("Direccion"), EmpInfo.Item("NoExt"), EmpInfo.Item("Colonia"), EmpInfo.Item("CP"), EmpInfo.Item("Ciudad"), EmpInfo.Item("Estado"), EmpInfo.Item("RFC")) - params.Add(New ReportParameter("DomicilioFiscal", domicilioFiscal)) - End If - End If - End If - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios") - 'End If - Else - ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - Dim CiudadSucursal As String = "" - Dim DomicilioSucursal As String = "" - - If DtMovimientos(0)("CveVenta").ToString <> "" Then - CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) - DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) - End If - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE")) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) - params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("NombreRecibio", Recibio)) - params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal)) - params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString)) - params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString)) - params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - - ImprimirPDF("Empresas/Grales/Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios") - 'End If - End If - - Case 19 'ARMADO DE PAQUETE - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Concepto", "Armado de Paquete")) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Descuentos", "")) - params.Add(New ReportParameter("IVA", "")) - params.Add(New ReportParameter("Total", "")) - 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - params.Add(New ReportParameter("FacturadoA", NombreCliente)) - If (UsuarioActual.CveEmpresa = 72) Then - params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) - End If - - ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Armado de Paquete - {0}", Folio.ToString), RDSName:="DsInventarios") - - Case 20 'DESARMADO DE PAQUETE - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - - ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Concepto", "Desarmado de Paquete")) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Descuentos", "")) - params.Add(New ReportParameter("IVA", "")) - params.Add(New ReportParameter("Total", "")) - 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - params.Add(New ReportParameter("FacturadoA", NombreCliente)) - If (UsuarioActual.CveEmpresa = 72) Then - params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) - End If - ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Desarmado de Paquete - {0}", Folio.ToString), RDSName:="DsInventarios") - - - Case 21, 22 'SALIDA POR PRESTAMO - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - - Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalida.rdlc" - If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then - Archivo = "Empresas/Grales/Formatos/EntradaSalida.rdlc" - End If - - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - 'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - If CveConcepto = 21 Then - params.Add(New ReportParameter("Concepto", "Salida por Prestamo")) - Else - params.Add(New ReportParameter("Concepto", "Entrada por Prestamo")) - End If - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Descuentos", "")) - params.Add(New ReportParameter("IVA", "")) - params.Add(New ReportParameter("Total", "")) - 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - params.Add(New ReportParameter("FacturadoA", NombreCliente)) - If (UsuarioActual.CveEmpresa = 72) Then - params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) - Else - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - End If - If CveConcepto = 21 Then - ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Salida por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios") - ElseIf CveConcepto = 22 Then - ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios") - End If - - 'Case 22 'ENTRADA POR PRESTAMO - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - ' Dim params As New List(Of ReportParameter) - - ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - ' If Imagen.Exists Then - ' params.Add(New ReportParameter("LogoPath", logouri)) - ' Else - ' params.Add(New ReportParameter("LogoPath", "")) - ' End If - - ' params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - ' params.Add(New ReportParameter("Concepto", "Entrada por Prestamo")) - ' params.Add(New ReportParameter("Almacen", Almacen)) - ' params.Add(New ReportParameter("Fecha", Fecha)) - ' params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - ' params.Add(New ReportParameter("Folio", Folio)) - ' params.Add(New ReportParameter("Descuentos", "")) - ' params.Add(New ReportParameter("IVA", "")) - ' params.Add(New ReportParameter("Total", "")) - ' 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - ' params.Add(New ReportParameter("FacturadoA", NombreCliente)) - ' If (UsuarioActual.CveEmpresa = 72) Then - ' params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) - ' End If - ' ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios") - - Case 24 'SALIDA POR RESGUARDO - If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - - Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalidaUniforme.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Archivo As String = String.Format("{0}Formatos/EntradaSalidaUniforme.rdlc", UsuarioActual.Empresa.Ruta) - - If Not ArchivoRuta.Exists Then - Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc" - End If - - ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - Dim DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio)) - Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", NombreEntrego)) - - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Concepto", "Salida por resguardo")) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Descuentos", "")) - params.Add(New ReportParameter("IVA", "")) - params.Add(New ReportParameter("Total", "")) - params.Add(New ReportParameter("NombreEntrego", NombreEntrego)) - params.Add(New ReportParameter("NombreRecibio", Recibio)) - If UsuarioActual.CveEmpresa = 72 Then - params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego)) - params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio)) - params.Add(New ReportParameter("Sucursal", SubProyecto)) - params.Add(New ReportParameter("DepartamentoRecibio", DepartamentoRecibe)) - params.Add(New ReportParameter("DepartamentoEntrego", DepartamentoEntrego)) - - End If - params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - - - ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Uniforme_{0}", Folio.ToString), RDSName:="DsInventarios") - Else - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - Dim TipoResponsable As String = "" - Dim Responsable As String = "" - - Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" - - If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then - Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" - End If - - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Fecha", Fecha)) - 'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) - params.Add(New ReportParameter("AlmacenOrigen", Almacen)) - params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) - - Dim Mov As New ClsInventarios - If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then - If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then - TipoResponsable = "Personal" - Responsable = Recibio - 'Responsable = Mov.DtResultados(0)("RazonSocial").ToString - ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then - TipoResponsable = "Cliente" - Responsable = Mov.DtResultados(0)("Nombre").ToString - ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then - TipoResponsable = "Proveedor" - Responsable = Mov.DtResultados(0)("RazonSocial").ToString - End If - End If - Mov.Dispose() - - params.Add(New ReportParameter("Responsable", Responsable)) - params.Add(New ReportParameter("TipoResponsable", TipoResponsable)) - - ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") - End If - - Case 28, 29 'ENTRADA POR PRESTAMO DE PROVEEDOR - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - Dim ConceptoReporte As String = If(CveConcepto = 28, "Entrada por Préstamo", "Devolución de Préstamo") - - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Concepto", ConceptoReporte)) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Proveedor", Proveedor)) - params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - - ImprimirPDF("Empresas/Grales/Formatos/PrestamosProveedor.rdlc", DtMovimientos, params, String.Format("Proveedor - {0}", Folio.ToString), RDSName:="DsInventarios") - - Case 30 - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - '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 UsuarioActual.CveEmpresa.Contiene(72, 80) Then - Dim CiudadSucursal As String = "" - Dim DomicilioSucursal As String = "" - Dim DomicilioCliente As String = "" 'String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString) - - If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal - - If DtMovimientos(0)("CveVenta").ToString <> "" Then - CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) - DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) - Else - DomicilioSucursal = DomicilioCliente - End If - - params.Add(New ReportParameter("Concepto", "Salida de Almacén Por Consumo Interno")) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss")))) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreCompleto", DtMovimientos(0)("NombreCompleto").ToString)) - params.Add(New ReportParameter("Puesto", DtMovimientos(0)("Puesto").ToString)) - params.Add(New ReportParameter("Turno", DtMovimientos(0)("Turno").ToString)) - params.Add(New ReportParameter("Departamento", DtMovimientos(0)("Departamento").ToString)) - params.Add(New ReportParameter("CentroCosto", DtMovimientos(0)("CentroCosto").ToString)) - params.Add(New ReportParameter("CodigoEmpleado", DtMovimientos(0)("CodigoEmpleado").ToString)) - params.Add(New ReportParameter("Celular", DtMovimientos(0)("Celular").ToString)) - params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString)) - params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("NombreEntrego", Capturo)) - params.Add(New ReportParameter("NombreRecibio", Recibio)) - - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - 'End If - - If Archivo2.Exists Then - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios") - Else - ImprimirPDF("Empresas/Grales/Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios") - End If - - Case 31 'SALIDA POR DEMOSTRACION - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidaDemostracion.rdlc", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - - If Archivo.Exists Then - params.Add(New ReportParameter("Concepto", "SALIDA POR DEMOSTRACIÓN")) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("NombreRecibio", Recibio)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidaDemostracion.rdlc", DtMovimientos, params, String.Format("Salida por Demostración - {0}", Folio.ToString), RDSName:="DsInventarios") - End If - Case 34, 35 ' S A L I D A S P O R A J U S T E --- S A L I D A M A N U A L - 'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72)) - 'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72)) - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - - If DtMovimientos(0)("CveAlmacen").ToString.ToEntero.Contiene(77, 146, 147, 148, 229, 342, 359, 360, 361, 362) Then - If Archivo2.Exists Then - If UsuarioActual.CveEmpresa.Contiene(72, 80) Then - Dim CiudadSucursal As String = "" - Dim DomicilioSucursal As String = "" - Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString) - - If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal - - If DtMovimientos(0)("CveVenta").ToString <> "" Then - CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) - DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) - Else - DomicilioSucursal = DomicilioCliente - End If - - params.Add(New ReportParameter("Concepto", "SALIDA POR AJUSTE")) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss")))) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreCompleto", DtMovimientos(0)("NombreCompleto").ToString)) - params.Add(New ReportParameter("Puesto", DtMovimientos(0)("Puesto").ToString)) - params.Add(New ReportParameter("Turno", DtMovimientos(0)("Turno").ToString)) - params.Add(New ReportParameter("Departamento", DtMovimientos(0)("Departamento").ToString)) - params.Add(New ReportParameter("CentroCosto", DtMovimientos(0)("CentroCosto").ToString)) - params.Add(New ReportParameter("CodigoEmpleado", DtMovimientos(0)("CodigoEmpleado").ToString)) - params.Add(New ReportParameter("Celular", DtMovimientos(0)("Celular").ToString)) - params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString)) - params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("NombreEntrego", Capturo)) - params.Add(New ReportParameter("NombreRecibio", Recibio)) - - End If - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios") - End If - Else - If Archivo.Exists Then - - Dim ConceptoReporte As String = "SALIDA POR AJUSTE" - If CveConcepto = 35 Then ConceptoReporte = "SALIDA MANUAL" - - 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH - If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145) Then - Dim CiudadSucursal As String = "" - Dim DomicilioSucursal As String = "" - Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString) - - If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal - - If DtMovimientos(0)("CveVenta").ToString <> "" Then - CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) - DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) - Else - - DomicilioSucursal = DomicilioCliente - End If - - - If UsuarioActual.CveEmpresa.Contiene(72, 80) Then - - params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss")))) - params.Add(New ReportParameter("SucursalCliente", DtMovimientos(0)("SucCliente").ToString)) - params.Add(New ReportParameter("RFCCliente", DtMovimientos(0)("RFC").ToString)) - params.Add(New ReportParameter("DireccionCliente", DomicilioCliente)) - params.Add(New ReportParameter("TelefonoCliente", DtMovimientos(0)("SucClienteTelefono").ToString)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) - params.Add(New ReportParameter("VendedorNombre", DtMovimientos(0)("Vendedor").ToString)) - - If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then - Dim StrEnvioDi As New StringBuilder - StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString) - If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString) - If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString) - - params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString)) - params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("EnvioNoExt").ToString)) - params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("EnvioNoInt").ToString)) - params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString)) - params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString)) - params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString)) - params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString)) - params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString)) - params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString)) - params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString)) - params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString)) - params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString)) - Else - Dim StrEnvioDi As New StringBuilder - StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString) - If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString) - If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString) - - Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString() - Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString() - - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString)) - params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("SucClienteNoExt").ToString)) - params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("SucClienteNoInt").ToString)) - params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("SucClienteColonia").ToString)) - params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("SucClienteCiudad").ToString)) - params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("SucClienteEstado").ToString)) - params.Add(New ReportParameter("EnvioContacto", EnvioContacto)) - params.Add(New ReportParameter("EnvioDepartamento", DepartamentoEnvio)) - params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("SucClienteCP").ToString)) - params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString)) - params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString)) - params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString)) - End If - End If - - params.Add(New ReportParameter("Concepto", ConceptoReporte)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) - params.Add(New ReportParameter("NombreEntrego", Capturo)) - params.Add(New ReportParameter("NombreRecibio", Recibio)) - params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal)) - params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString)) - params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString)) - params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - - If UsuarioActual.CveEmpresa = 72 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno)) - If UsuarioActual.CveEmpresa = 80 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno)) - If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("Fecha", Fecha)) - - - 'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios") - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") - Else - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("SubProyecto", SubProyecto)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", Capturo)) - params.Add(New ReportParameter("NombreRecibio", Recibio)) - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") - End If - - Else - Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta)) - ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - 'params.Add(New ReportParameter("LogoPath", logouri)) - Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) - params.Add(New ReportParameter("LogoPath", LogoRuta)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Concepto", "SALIDA POR AJUSTE")) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) - params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Descuentos", "")) - params.Add(New ReportParameter("IVA", "")) - params.Add(New ReportParameter("Total", "")) - 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("NombreRecibio", Recibio)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - - - - If UsuarioActual.CveEmpresa.Contiene(143) Then - Dim objclientes As New ClsClientes - If objclientes.GetClientes(-1, DtMovimientos(0)("Nombre").ToString, "-1", "-1", "-1", "-1", "-1", -1, 143) Then - params.Add(New ReportParameter("NombreComercial", objclientes.DtResultados(0)("NombreComercial").ToString)) - End If - If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then - Dim StrEnvioDi As New StringBuilder - StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString) - If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString) - If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString) - - params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString)) - params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString)) - params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString)) - params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString)) - params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString)) - params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString)) - params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString)) - params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString)) - params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString)) - Else - Dim StrEnvioDi As New StringBuilder - StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString) - If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString) - If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString) - - Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString() - Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString() - - params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString)) - params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString)) - params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString)) - params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString)) - params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString)) - params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString)) - params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString)) - params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString)) - params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString)) - End If - End If - - - If A.Exists Then - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") - Else - ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") - End If - - End If - End If - - Case 42 'ENTRADAS USADOS - - Dim ObjAcum As New ClsAcumuladores - Dim DatosEntradasUsados As New DataTable - Dim CveAlmacen As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", String.Format("Almacen = '{0}'", Almacen)) - If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, CveAlmacen.ToEntero, Convert.ToDateTime(Fecha.ToString), Convert.ToDateTime(Today.ToString)) Then - DatosEntradasUsados = ObjAcum.DtResultados - - End If - ObjAcum.Dispose() - - 'Dim Dia As String = {"lunes", "martes", "miércoles", "jueves", "viernes", "sábado", "domingo"}(If((Weekday(Today) - 2) = -1, 7, Weekday(Today) - 2)) - 'Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today) - 1) - - 'Dim FechaConFormato As String = String.Format("{0}, {1} de {2} de {3}", Dia, Day(Today), Mes, Year(Today)) - - Dim params As New List(Of ReportParameter) - - params.Add(New ReportParameter("Direccion", Almacen)) - params.Add(New ReportParameter("FechaConFormato", Now.ToString("dd/MM/yyyy"))) - 'params.Add(New ReportParameter("FechaInicial", Fecha)) - 'params.Add(New ReportParameter("FechaFinal", Today.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Sucursal", "Sucursal")) - params.Add(New ReportParameter("Cliente", NombreCliente)) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("FechaImpresion", Now.ToString("dd/MM/yyyy hh:mm tt"))) - params.Add(New ReportParameter("Recibio", Recibio)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - 'params.Add(New ReportParameter("Observaciones", "Observaciones con un tamaño mas grande para ver como se ve en el ticket chico.")) - - ImprimirPDF(String.Format("Empresas/{0}/Formatos/UsadosEntradas.rdlc", UsuarioActual.CveEmpresa), DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios") - Case 7 - Dim params As New List(Of ReportParameter) - Dim CiudadSucursal As String = "" - Dim DomicilioSucursal As String = "" - - If DtMovimientos(0)("CveVenta").ToString <> "" Then - CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) - DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) - End If - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE")) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) - params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("NombreRecibio", Recibio)) - params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal)) - params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString)) - params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString)) - params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios") - 'End If - - End Select - - If CveConcepto = 2 Then - ElseIf CveConcepto = 3 Then - End If - End Sub - - -#End Region - -#Region "OP = 'OC' - IMPRIME PDF OC" - Private Sub ImprimePDFOC(CveOrdenCompra As Integer) - Dim reporte As Byte() = NewGeneraBytesOC(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1")) - 'Dim reporte As Byte() = GeneraBytesOC(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1")) - If IsNothing(reporte) Then - Else - Dim ObjOC As New ClsOC - Dim Folio As Integer = 0 - If ObjOC.GetOC(CveOrdenCompra, UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then - Folio = ObjOC.Folio - End If - ObjOC.Dispose() - If Folio > 0 Then - ImprimirbytesPDF(reporte, $"OrdenCompra-{Folio.ToString}") - End If - - End If - End Sub - - Private Sub ImprimePDFCotOC(CveOrdenCompra As Integer) - Dim reporte As Byte() - - reporte = NewGeneraOCCotizacion(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1")) - If IsNothing(reporte) Then - Else - Dim ObjOC As New ClsOC - Dim Folio As Integer = 0 - If ObjOC.GetOC(CveOrdenCompra, UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then - Folio = ObjOC.Folio - End If - ObjOC.Dispose() - If Folio > 0 Then - ImprimirbytesPDF(reporte, $"OrdenCompra-{Folio.ToString}") - End If - End If - End Sub - -#End Region - -#Region "OP = 'VAL' - IMPRIME PDF VAL" - Private Sub GenerarPDFVale(CveVale As Integer) - - Dim ObjAF As New ClsAF - If ObjAF.GetValesCombustible(-1, CveVale, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1) Then - Dim dtVC As DataTable = ObjAF.DtResultados - Dim dr As DataRow = dtVC.Rows(0) - - Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("Folio", dr("Folio").ToString)) - params.Add(New ReportParameter("Proveedor", dr("RazonSocial").ToString)) - params.Add(New ReportParameter("Obra", dr("SubProyecto").ToString)) - params.Add(New ReportParameter("NoEconomico", dr("Codigo").ToString)) - params.Add(New ReportParameter("Fecha", dr("Fecha").ToString)) - params.Add(New ReportParameter("Operador", dr("NombreCompleto").ToString)) - params.Add(New ReportParameter("Combustible", dr("Combustible").ToString)) - params.Add(New ReportParameter("LitrosCombustible", dr("Litros").ToString)) - ImprimirPDF(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/ValesCombustible.rdlc", UsuarioActual.Empresa.Ruta), dtVC, params) - - 'ImprimirPDFview(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/ValesCombustible.rdlc", UsuarioActual.Empresa.Ruta), lrds, params, "formato", "pdf", ReportViewer1) - 'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas\1\Formatos\ValesCombustible.rdlc", UsuarioActual.Empresa.Rulrdsta)) - 'If Archivo.Exists Then - - 'Else - ' 'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - ' ImprimirPDF("/Empresas/1/Formatos/ValesCombustible.rdlc", dtVC, params, "ValeCombustible") - 'End If - End If - ObjAF.Dispose() - End Sub -#End Region - -#Region "OP = 'OS' - IMPRIMIR PDF OS" - Private Sub GenerarPDFOS(CveOS As Integer) - Dim ObjOS As New ClsOS() - Dim params As New List(Of ReportParameter) - Dim CveFolio = "" - CreaDT() - Dim ReporteEmpresa As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta)) - - If ObjOS.GetOrdenesServicios(CveOS, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then - If ObjOS.DtResultados.Rows.Count > 0 Then - - Dim dtOS As DataTable = ObjOS.DtResultados - Dim dr As DataRow = dtOS.Rows(0) - params.Add(New ReportParameter("Cliente", dr("Cliente").ToString)) - params.Add(New ReportParameter("Solicito", dr("PersonaSolicito").ToString)) - params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString)) - params.Add(New ReportParameter("Recibio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaRecibido", dr("FechaRecepcion").ToString)) - params.Add(New ReportParameter("FolioOS", dr("Folio").ToString)) - params.Add(New ReportParameter("ClienteTelefono", dr("Telefono").ToString)) - params.Add(New ReportParameter("ClienteCalle", dr("Direccion").ToString)) - params.Add(New ReportParameter("ClienteColonia", dr("Colonia").ToString)) - params.Add(New ReportParameter("ClienteCiudad", dr("Ciudad").ToString)) - params.Add(New ReportParameter("ClienteEstado", dr("Estado").ToString)) - CveFolio = dr("Folio").ToString - - If ReporteEmpresa.Exists Then - params.Add(New ReportParameter("NoDeCliente", dr("CveCliente").ToString)) - params.Add(New ReportParameter("RFC", dr("RFC").ToString)) - params.Add(New ReportParameter("Vendedor", " ")) - params.Add(New ReportParameter("Correo", dr("Correo").ToString)) - params.Add(New ReportParameter("CodigoDeServicio", dr("CveOS").ToString)) - params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString)) - params.Add(New ReportParameter("TipoServicio", dr("TipoServicio").ToString)) - params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString)) - params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString)) - params.Add(New ReportParameter("Copia", "Copia: Original")) - params.Add(New ReportParameter("Equipo", dr("Equipo").ToString)) - End If - End If - End If - - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - - If Not ReporteEmpresa.Exists Then - params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - End If - - If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then - TmpDTOS = ObjOS.DtResultados - End If - - If ObjOS.GetDetalleMateriales(-1, CveOS) Then - TmpDTMaterialesOS = ObjOS.DtResultados - End If - Dim lrds As New List(Of ReportDataSource) - Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS} - Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS} - - lrds.Add(rds) - lrds.Add(rds2) - ObjOS.Dispose() - - ImprimirPDF(String.Format("Empresas/{0}/Formatos/OrdenServicio.rdlc", UsuarioActual.CveEmpresa), lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio)) - End Sub - Private Sub CreaDT() - TmpDTOS = New DataTable - TmpDTOS.Columns.Add("CveOSDetalle", GetType(Integer)) - - TmpDTOS.Columns.Add("CveClasificacion", GetType(Integer)) - TmpDTOS.Columns.Add("Clasificacion", GetType(String)) - TmpDTOS.Columns.Add("CvePS", GetType(Integer)) - TmpDTOS.Columns.Add("CveUM", GetType(Integer)) - TmpDTOS.Columns.Add("UM", GetType(String)) - TmpDTOS.Columns.Add("Cantidad", GetType(Integer)) - TmpDTOS.Columns.Add("PS", GetType(String)) - TmpDTOS.Columns.Add("Especificaciones", GetType(String)) - TmpDTOS.Columns.Add("Materiales", GetType(String)) - TmpDTOS.Columns.Add("CveCuentaEquipo", GetType(Integer)) - TmpDTOS.Columns.Add("Observaciones", GetType(String)) - TmpDTOS.Columns.Add("FechaAtencion", GetType(String)) - TmpDTOS.Columns.Add("CveUsuarioAtendio", GetType(Integer)) - TmpDTOS.Columns.Add("UsuarioAtendio", GetType(String)) - TmpDTOS.Columns.Add("FechaTermino", GetType(String)) - TmpDTOS.Columns.Add("FechaEntrega", GetType(String)) - TmpDTOS.Columns.Add("CveUsuarioEntrego", GetType(Integer)) - TmpDTOS.Columns.Add("UsuarioEntrego", GetType(String)) - TmpDTOS.Columns.Add("SeFacturara", GetType(String)) - TmpDTOS.Columns.Add("SeSuperviso", GetType(String)) - TmpDTOS.Columns.Add("Estatus", GetType(String)) - TmpDTOS.Columns.Add("Archivo", GetType(String)) - TmpDTOS.Columns.Add("ComentarioTecnico", GetType(String)) - End Sub - Private Sub CreaDTMateriales() - TmpDTMaterialesOS = New DataTable - TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer)) - - TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer)) - TmpDTMaterialesOS.Columns.Add("CveConsecutivo", GetType(Integer)) - TmpDTMaterialesOS.Columns.Add("CveConsecutivoDetalle", GetType(Integer)) - TmpDTMaterialesOS.Columns.Add("CveMaterial", GetType(Integer)) - TmpDTMaterialesOS.Columns.Add("Cantidad", GetType(Integer)) - TmpDTMaterialesOS.Columns.Add("CveClasificacion", GetType(Integer)) - TmpDTMaterialesOS.Columns.Add("CvePS", GetType(String)) - TmpDTMaterialesOS.Columns.Add("CveUM", GetType(String)) - TmpDTMaterialesOS.Columns.Add("Clasificacion", GetType(String)) - TmpDTMaterialesOS.Columns.Add("PS", GetType(String)) - TmpDTMaterialesOS.Columns.Add("UM", GetType(String)) - End Sub -#End Region - -#Region "OP = 'OI' - Crear Archivo " - Private Sub CrearArchivo(Archivo As String) - Dim ObjEventos As New ClsOIEventos - - Dim path As String = Server.MapPath(String.Format(Archivo)) - Dim file As System.IO.FileInfo = New System.IO.FileInfo(path) '-- if the file exists on the server - - DescargarArchivo(file) - End Sub - - -#End Region - -#Region "OP = 'Contratos' - Crear Archivo " - Private Sub CrearArchivoContratos(Archivo As String) - - - Dim file As System.IO.FileInfo = New System.IO.FileInfo(Archivo) '-- if the file exists on the server - - DescargarArchivo(file) - End Sub - - -#End Region - -#Region "OP = 'OI' - Descargar Archivo " - Private Sub DescargarArchivo(File As System.IO.FileInfo) - If File.Exists Then 'set appropriate headers - Response.Clear() - Response.AddHeader("Content-Disposition", "attachment; filename=" & File.Name) - Response.AddHeader("Content-Length", File.Length.ToString()) - Response.ContentType = "application/octet-stream" - - 'Select Case Path.GetExtension(File.Name).ToLower() - ' Case ".jpg" - ' Response.ContentType = "image/jpg" - ' Case ".gif" - ' Response.ContentType = "image/gif" - ' Case ".png" - ' Response.ContentType = "image/png" - ' Case ".docx" - ' Response.ContentType = "application/ms-word" - ' Case ".xlsx" - ' Response.ContentType = "application/ms-excel" - ' Case ".xlsx" - ' Response.ContentType = "application/ms-excel" - 'End Select - - Response.WriteFile(File.FullName) - Response.End() 'if file does not exist - Else - Alert("Ocurrio un error al descargar el archivo", TipoMensaje.MsgAdvertencia, "window.close()") - - End If 'nothing in the URL as HTTP GET - End Sub -#End Region - -#Region "OP = 'AFR' - AF" - - Private Sub ImprimirPDFAFR(CveAFR As Integer, Tipo As Integer) - Dim ObjAF As New ClsAF - 'Dim ObjSubProyecto As New ClsSubProyectos - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\ResguardoAF.rdlc", UsuarioActual.Empresa.Ruta)) - - Dim dtVC As DataTable = Nothing - Dim dtHijos As DataTable = Nothing - - Dim params As New List(Of ReportParameter) - Dim dr As DataRow = Nothing - Dim NomArchivo As String = "Reporte" - - If ObjAF.GetActivosFijosResguardos(-1, CveAFR, -1, -1) Then - dtVC = ObjAF.DtResultados - End If - - - dr = dtVC.Rows(0) - - Select Case Tipo - Case 1 - params.Add(New ReportParameter("Tipo", "RESGUARDO DE ACTIVO FIJO")) - params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString)) - params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString)) - params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString)) - params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}")) - NomArchivo = $"Resguardo_Folio{dr("Folio").ToString}" - - If dtVC.Rows.Count > 0 Then - If ObjAF.GetActivosFijosHijos(UsuarioActual.CveEmpresa, dr("CveActivoFijo").ToString.ToEntero) Then - dtHijos = ObjAF.DtResultados - dtVC.Merge(dtHijos) - End If - End If - Case 2 - params.Add(New ReportParameter("Tipo", "TRASLADO DE ACTIVO FIJO")) - params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString)) - params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString)) - params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString)) - params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString}")) - NomArchivo = $"Traslado_Folio{dr("Folio").ToString}" - Case 3 - params.Add(New ReportParameter("Tipo", "RECEPCION DE TRASLADO DE ACTIVO FIJO")) - params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString)) - params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString)) - params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString)) - params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString}")) - NomArchivo = $"Recepcion_Folio{dr("Folio").ToString}" - Case 4 - params.Add(New ReportParameter("Tipo", "LIBERACION DE RESGUARDO DE ACTIVO FIJO")) - params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString)) - params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString)) - params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString)) - params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}")) - NomArchivo = $"Liberacion_Folio{dr("Folio").ToString}" - - If dtVC.Rows.Count > 0 Then - If ObjAF.GetActivosFijosHijos(UsuarioActual.CveEmpresa, dr("CveActivoFijo").ToString.ToEntero) Then - dtHijos = ObjAF.DtResultados - dtVC.Merge(dtHijos) - End If - End If - End Select - - ObjAF.Dispose() - - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - params.Add(New ReportParameter("SubproyectoDestino", dr("SubProyectoDestino").ToString)) - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Folio", dr("Folio").ToString)) - params.Add(New ReportParameter("Responsable", dr("NombreCompleto").ToString)) - params.Add(New ReportParameter("Observaciones", dr("ObservacionesAF").ToString)) - - - If UsuarioActual.CveEmpresa.Contiene(72) Then - Dim SBDomicilioSucursal As New StringBuilder() - Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("") - - If DRSucursal IsNot Nothing Then - Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado")) - Dim DomicilioSucursal As String = "" - - SBDomicilioSucursal.AppendFormat("{0}", DRSucursal("Calle")) - If DRSucursal("NoExt").ToString.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", DRSucursal("NoExt").ToString.ToEntero) - If DRSucursal("NoInt").ToString.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", DRSucursal("NoInt").ToString.ToEntero) - If DRSucursal("Colonia").ToString.Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", DRSucursal("Colonia").ToString) - If DRSucursal("CP").ToString.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", DRSucursal("CP").ToString) - If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal) - If DRSucursal("Pais").ToString.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", DRSucursal("Pais").ToString) - End If - - params.Add(New ReportParameter("NombreResponsable", dr("NombreCompleto").ToString)) - params.Add(New ReportParameter("RFC", dr("RFC").ToString)) - params.Add(New ReportParameter("Puesto", dr("Puesto").ToString)) - params.Add(New ReportParameter("PuestoEntrego", dr("PuestoEntrego").ToString)) - params.Add(New ReportParameter("Departamento", dr("Departamento").ToString)) - params.Add(New ReportParameter("DepartamentoEntrego", dr("DepartamentoEntrego").ToString)) - params.Add(New ReportParameter("Folio", dr("Folio").ToString)) - params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString)) - params.Add(New ReportParameter("Telefono", dr("Celular").ToString)) - params.Add(New ReportParameter("Direccion", dr("DireccionPersonal").ToString)) - params.Add(New ReportParameter("DireccionSucursal", SBDomicilioSucursal.ToString)) - End If - - - If Archivo.Exists Then - ImprimirPDF(String.Format("{0}Formatos\ResguardoAF.rdlc", UsuarioActual.Empresa.Ruta), dtVC, params, NomArchivo) - Else - ImprimirPDF("Empresas/Grales/Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo) - End If - - - End Sub - Private Sub ImprimirPDFAFR2(CveAFR As Integer, Tipo As Integer) - - Dim ObjAF As New ClsAF - - Dim dtVC As DataTable = Nothing - Dim params As New List(Of ReportParameter) - Dim dr As DataRow = Nothing - Dim NomArchivo As String = "Reporte" - - If Tipo = 1 OrElse Tipo = 2 Then - If ObjAF.GetActivosFijosResguardos(-1, -1, -1, CveAFR) Then - dtVC = ObjAF.DtResultados - End If - ElseIf Tipo = 3 OrElse Tipo = 4 Then - If ObjAF.GetActivosFijosResguardos(-1, -1, -1, -1, CveResguardo2:=CveAFR) Then - dtVC = ObjAF.DtResultados - End If - End If - ObjAF.Dispose() - - dr = dtVC.Rows(0) - - - Select Case Tipo - Case 1 - params.Add(New ReportParameter("Tipo", "RESGUARDO DE ACTIVO FIJO")) - params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString)) - params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString)) - params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString)) - params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}")) - NomArchivo = $"Resguardo_Folio{dr("Folio").ToString}" - Case 2 - params.Add(New ReportParameter("Tipo", "TRASLADO DE ACTIVO FIJO")) - params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString)) - params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString)) - params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString)) - params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString} ")) - NomArchivo = $"Traslado_Folio{dr("Folio").ToString}" - Case 3 - params.Add(New ReportParameter("Tipo", "RECEPCION DE TRASLADO DE ACTIVO FIJO")) - params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString)) - params.Add(New ReportParameter("NombreEntrego", dr("Nombre").ToString)) - params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString)) - params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString}")) - NomArchivo = $"Recepcion_Folio{dr("Folio").ToString}" - Case 4 - params.Add(New ReportParameter("Tipo", "LIBERACION DE RESGUARDO DE ACTIVO FIJO")) - params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString)) - params.Add(New ReportParameter("NombreEntrego", dr("Nombre").ToString)) - params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString)) - params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}")) - NomArchivo = $"Liberacion_Folio{dr("Folio").ToString}" - End Select - - params.Add(New ReportParameter("Subproyecto", dr("SubProyecto").ToString)) - params.Add(New ReportParameter("SubproyectoDestino", dr("SubProyectoDestino").ToString)) - - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.NombreCorto)) - params.Add(New ReportParameter("Folio", dr("Folio").ToString)) - params.Add(New ReportParameter("Responsable", dr("Nombre").ToString)) - params.Add(New ReportParameter("Observaciones", dr("Observaciones").ToString)) - - - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo) - - End Sub -#End Region - -#Region "OP = 'POL' " - Private Sub ImprimirPolizaPDF(IdPoliza As Integer) - 'Dim ObjConta As New ClsContabilidad - Dim ObjPoliza As New ClsContPAQi(UsuarioActual.Empresa) - - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - - If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then - Dim dtVC As DataTable - Dim dr As DataRow - dtVC = ObjPoliza.DtResultados - dr = dtVC.Rows(0) - - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString)) - params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString)) - params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString)) - params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) - 'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString)) - 'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString)) - params.Add(New ReportParameter("Numero", dr("Folio").ToString)) - params.Add(New ReportParameter("Moneda", "")) - params.Add(New ReportParameter("CodigoPostal", "")) - - If UsuarioActual.CveEmpresa = 119 Then - params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("IdUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre"))) - End If - - If Archivo.Exists Then - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc", dtVC, params, "ReportePoliza") - Else - ImprimirPDF("Empresas/Grales/Formatos/Polizas.rdlc", dtVC, params, "ReportePoliza") - End If - End If - - ObjPoliza.Dispose() - - End Sub -#End Region - -#Region "OP = 'CAN' - CANCELACION" - Public Sub ImprimeCancelacion(CveVenta As Integer) - Dim drv As DataRow = Nothing - - Dim ObjVentas As New ClsVentas - If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then - drv = ObjVentas.DtResultados.FiltroPrimero("") - End If - ObjVentas.Dispose() - - If drv IsNot Nothing Then - Dim Total = drv("Total").ToString().ToDecimal() - Dim CveEstatusFactura = drv("CveEstatusFactura").ToString().ToEntero() - Dim FolioFiscal = drv("FolioFiscal").ToString() - Dim RFCReceptor = drv("RFCReceptor").ToString() - Dim SelloCancelacion = drv("SelloCancelacion").ToString() - Dim EstadoCancelacion = drv("EstadoCancelacion").ToString() - Dim FechaCancelacion = drv("FechaCancelacion").ToString.ToDateTime - - Dim RFCEmisor = UsuarioActual.Empresa.RFC - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacion.rdlc", ModExtensiones.DirectorioBaseEmpresas)) - - Dim Titulo As String = "Acuse de cancelación de CFDI" - Dim EstadoCFDI As String = "Cancelado" - - If CveEstatusFactura = 20 Then - Titulo = "Acuse de solicitud de cancelación de CFDI" - EstadoCFDI = "Vigente" - If String.IsNullOrEmpty(EstadoCancelacion) Then - EstadoCancelacion = "Cancelable con aceptación" - End If - ElseIf CveEstatusFactura = 5 Then - If String.IsNullOrEmpty(EstadoCancelacion) Then - If Total >= 5000 And FechaCancelacion.Year < 2022 Then - EstadoCancelacion = "Cancelado con aceptación" - End If - - If Total >= 1000 And FechaCancelacion.Year >= 2022 Then - EstadoCancelacion = "Cancelado con aceptación" - End If - - If String.IsNullOrEmpty(EstadoCancelacion) Then - EstadoCancelacion = "Cancelado sin aceptación" - End If - End If - End If - - Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("Titulo", Titulo)) - params.Add(New ReportParameter("FolioFiscal", FolioFiscal)) - params.Add(New ReportParameter("RFCEmisor", RFCEmisor)) - params.Add(New ReportParameter("RFCReceptor", RFCReceptor)) - params.Add(New ReportParameter("SelloCancelacion", SelloCancelacion)) - params.Add(New ReportParameter("EstadoCFDI", EstadoCFDI)) - params.Add(New ReportParameter("EstadoCancelacion", EstadoCancelacion)) - params.Add(New ReportParameter("MsgError", "")) - params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString("dd/MM/yyyy HH:mm:ss"))) - - ImprimirPDF(Archivo.FullName, DtDetalle, params, "AcuseCancelacion" & CveVenta) - - End If - - End Sub -#End Region - -#Region "OP = 'DC' - DEPOSITOS CAJA" - Private Sub CargaDepositosCaja(CveIE As Integer, CuentaCaja As String, CuentaDeposito As String) - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DepositoCaja.rdlc", UsuarioActual.Empresa.Ruta)) - - Dim ObjIE As New ClsBancos() - Dim Tabla As DataTable - ObjIE.GetBancosIEMovimientosDepositos(CveIE, UsuarioActual.CveEmpresa) - Tabla = ObjIE.DtResultados - - Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("Fecha", Now.ToDateTime.ToString)) - params.Add(New ReportParameter("FechaIE", ObjIE.DtResultados(0)("FechaDocumento").ToString.ToDate.ToShortDateString)) - params.Add(New ReportParameter("CuentaCaja", CuentaCaja)) - params.Add(New ReportParameter("CuentaDeposito", CuentaDeposito)) - - If Archivo.Exists Then - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DepositoCaja.rdlc", Tabla, params, "DepositoCaja") - Else - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - ImprimirPDF("Empresas\Grales\Formatos\DepositoCaja.rdlc", Tabla, params, "DepositoCaja") - End If - - - ObjIE.Dispose() - - End Sub -#End Region - -#Region "I E C H E Q U E S" - - Private Sub ImprimirIE(CveIE As Integer, CveEmpresa As Integer) - Dim CveTipoTransaccion = -1 - Dim ObjIE As New ClsBancos() - ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) - If ObjIE.DtResultados.Rows.Count > 0 Then - CveTipoTransaccion = ObjIE.CveTipoTransaccion - End If - Dim params As New List(Of ReportParameter) - - - If CveTipoTransaccion = 1 Then - Dim Folio = ObjIE.Folio - Dim Importe = ObjIE.Importe - Dim Observacion = ObjIE.Observaciones - Dim ImporteLetra = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda)) - Dim Beneficiario = ObjIE.PagueseA - Dim Fecha = ObjIE.FechaDocumento.ToShortDateString - Dim CveCuenta = ObjIE.CveCuenta - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Beneficiario", Beneficiario)) - params.Add(New ReportParameter("Importe", Importe.FormatoNumero)) - params.Add(New ReportParameter("ImporteLetra", ImporteLetra.ToUpper)) - params.Add(New ReportParameter("Observaciones", Observacion)) - params.Add(New ReportParameter("Tipo", If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", ""))) - - Dim DtMovimientosPoliza As DataTable = Nothing - If UsuarioActual.CveEmpresa = 48 Then - 'Movimientos del IE - If ObjIE.IDPoliza > 0 Then - - Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - If Not ObjConta.GetPoliza(ObjIE.IDPoliza, -1, -1, -1, -1) Then - Alert("Ocurrio un error al cargar los datos del cheque", TipoMensaje.MsgError) - Else - DtMovimientosPoliza = ObjConta.DtResultados.AsEnumerable().Take(27).CopyToDataTable - End If - - ObjConta.Dispose() - Else - DtMovimientosPoliza = New DataTable - DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String)) - DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String)) - DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double)) - DtMovimientosPoliza.Columns.Add("Abono", GetType(Double)) - - Dim Dr = DtMovimientosPoliza.NewRow - Dr("CODIGO") = "" - Dr("Cuenta") = "" - Dr("Cargo") = 0 - Dr("Abono") = 0 - DtMovimientosPoliza.Rows.Add(Dr) - End If - ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then - Dim PreP As New ClsContabilidad - If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then - DtMovimientosPoliza = New DataTable - DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String)) - DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String)) - DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double)) - DtMovimientosPoliza.Columns.Add("Abono", GetType(Double)) - - If PreP.DtResultados.Rows.Count > 0 Then - - For Each drt As DataRow In PreP.DtResultados.Rows - Dim Dr = DtMovimientosPoliza.NewRow - Dr("CODIGO") = drt("CuentaCodigo") - Dr("Cuenta") = drt("CuentaNombre") - Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0") - Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0") - DtMovimientosPoliza.Rows.Add(Dr) - - Next - - - End If - End If - PreP.Dispose() - End If - - - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta)) - - If Archivo.Exists Then - ImprimirPDF(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio)) - Else - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC)) - ImprimirPDF(String.Format("Empresas\Grales\Formatos\CHQ.rdlc"), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio)) - End If - - - ElseIf CveTipoTransaccion.Contiene(2, 8, 9, 10) Then - - Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String - Dim FechaExpedicion As Date = Now - Dim Importe As Double - Dim FormatoCheque As String = "" - - Dim CveProveedor, CvePersonal, CveCuentaDeposito As Integer - Dim tIdPoliza As Integer - Dim DtMovimientosPoliza As DataTable = Nothing - Dim RFC As String = "" - Dim Correo As String = "" - Dim CLABE As String = "" - Dim NoSucursal As String = "" - Dim Telefono As String = "" - Dim IVA As Double = 0 - - Folio = "" - TextoImporte = "" : Observacion = "" : PagueseA = "" : UsuarioRegistro = "" : Banco = "" : NumCuenta = "" : AbonoCuenta = "" : SubProyecto = "" : NotificarA = "" : RefCrediproveedor = "" - CveProveedor = -1 : CvePersonal = -1 : CveCuentaDeposito = 0 - Ruta = UsuarioActual.Empresa.Ruta - - PagueseA = ObjIE.PagueseA - Folio = ObjIE.Folio - Importe = ObjIE.Importe - CveTipoTransaccion = ObjIE.CveTipoTransaccion - Banco = ObjIE.Banco - NumCuenta = ObjIE.DepositoCuenta - If NumCuenta = "" Then NumCuenta = ObjIE.DepositoCIE - CLABE = ObjIE.DepositoCLABE - If CLABE = "" Then CLABE = ObjIE.DepositoReferencia - NoSucursal = ObjIE.DepositoSucursal - RefCrediproveedor = ObjIE.DepositoRefCrediProveedor - TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda)) - FechaExpedicion = ObjIE.FechaDocumento - Observacion = ObjIE.Observaciones - UsuarioRegistro = ObjIE.UsuarioNombre - SubProyecto = ObjIE.SubProyecto - AbonoCuenta = If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "") - NotificarA = ObjIE.NotificarA - tIdPoliza = ObjIE.IDPoliza - - Dim PreP As New ClsContabilidad - If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then - If PreP.DtResultados.Rows.Count > 0 Then - CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero - CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero - - IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA - - If CveProveedor > 0 Then - Dim Prov As New ClsCompProveedores - If Prov.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then - If Prov.DtResultados.Rows.Count > 0 Then - RFC = Prov.DtResultados.Rows(0)("RFC").ToString - Correo = Prov.DtResultados.Rows(0)("ContactoMail").ToString - End If - End If - Prov.Dispose() - End If - - If CvePersonal > 0 Then - Dim RH As New ClsRH - If RH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then - If RH.DtResultados.Rows.Count > 0 Then - Correo = RH.DtResultados.Rows(0)("Correo").ToString - Banco = RH.DtResultados.Rows(0)("Banco").ToString - NumCuenta = RH.DtResultados.Rows(0)("BancoNumCuenta").ToString - CLABE = RH.DtResultados.Rows(0)("CLABE").ToString - End If - - - End If - - RH.Dispose() - - End If - End If - End If - PreP.Dispose() - - - params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy"))) - params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio))) - params.Add(New ReportParameter("PagueseA", PagueseA)) - params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}")) - params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper)) - params.Add(New ReportParameter("Banco", Banco)) - params.Add(New ReportParameter("NumCuenta", NumCuenta)) - params.Add(New ReportParameter("CLABE", CLABE)) - params.Add(New ReportParameter("Concepto", Observacion)) - params.Add(New ReportParameter("Factura", "")) - params.Add(New ReportParameter("RFC", RFC)) - params.Add(New ReportParameter("IVA", $"$ {IVA.ToString("N2")}")) - params.Add(New ReportParameter("NumSucursal", NoSucursal)) - params.Add(New ReportParameter("Correo", Correo)) - params.Add(New ReportParameter("Telefono", Telefono)) - params.Add(New ReportParameter("NotifiqueA", NotificarA)) - params.Add(New ReportParameter("Obra", SubProyecto)) - params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro)) - params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString)) - - If UsuarioActual.CveEmpresa = 66 Then - params.Add(New ReportParameter("RefCrediproveedor", RefCrediproveedor)) - End If - - - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta)) - If Archivo.Exists Then - ImprimirPDF(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("Transferencia-{0}", CveIE)) - Else - ImprimirPDF("Empresas\Grales\Formatos\Transferencia.rdlc", DtDetalle, params, String.Format("Transferencia-{0}", CveIE)) - End If - - ElseIf CveTipoTransaccion.Contiene(6) Then - 'IMPRESION DE FORMATO DE IE PAGO EN EFECTIVO PARA COMPU - VIATICOS - Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = "" - Dim Ruta As String = UsuarioActual.Empresa.Ruta - Dim FechaExpedicion As Date = Now - Dim Importe As Double - Dim FormatoCheque As String = "" - - DtDetalle = Nothing - - PagueseA = ObjIE.PagueseA - Folio = ObjIE.Folio - Importe = ObjIE.Importe - CveTipoTransaccion = ObjIE.CveTipoTransaccion - - TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda)) - Observacion = ObjIE.Observaciones - UsuarioRegistro = ObjIE.UsuarioNombre - - params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy"))) - params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio))) - params.Add(New ReportParameter("PagueseA", PagueseA)) - params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}")) - params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper)) - - params.Add(New ReportParameter("Concepto", Observacion)) - params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro)) - params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString)) - - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta)) - If Archivo.Exists Then - ImprimirPDF(String.Format("{0}Formatos\ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("PagoEfectivo-{0}", CveIE)) - 'Else - ' ImprimirPDF("Empresas\Grales\Formatos\ComprobanteEgreso.rdlc", DtDetalle, params, String.Format("PagoEfectivo-{0}", CveIE)) - End If - End If - - ObjIE.Dispose() - - End Sub - - Private Sub ImprimeMov(CveIE As Integer) - Dim ObjIE As New ClsBancos() - Dim DtGvRH As New DataTable - Dim DtComprobacion As New DataTable - Dim ParamComprobacion As New DataTable - - 'Movimientos Relacionados de Comprobacion - Hijo - If ObjIE.GetBancosIEMovimientosHijo(CveIE, UsuarioActual.CveEmpresa) Then - DtGvRH = ObjIE.DtResultados - End If - - If DtGvRH IsNot Nothing AndAlso DtGvRH.Rows.Count > 0 Then - - If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then - ParamComprobacion = ObjIE.DtResultados - End If - - Dim ObjMov As New ClsMovimientos - For Each dr As DataRow In DtGvRH.Rows - If ObjMov.GetPersonalCajaChica(UsuarioActual.CveEmpresa, dr("CveCompra").ToString.ToEntero) Then - DtComprobacion.Merge(ObjMov.DtResultados.FiltraParametros("CveCompra =" + dr("CveCompra").ToString)) - End If - Next - ObjMov.Dispose() - - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)) - 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 Archivo.Exists Then - - If UsuarioActual.CveEmpresa = 72 Then - params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString)) - params.Add(New ReportParameter("CveCajaChica", DtComprobacion.Rows(0)("CveCajaChica").ToString)) - params.Add(New ReportParameter("CveFyE", "0")) ' - - params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString)) - params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString)) - params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString)) - params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString)) - params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString.ToDate.ToShortDateString)) - params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString)) - params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString)) - - ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF") - Else - params.Add(New ReportParameter("Numero", "")) ' - params.Add(New ReportParameter("Anio", DtComprobacion.FiltraParametros("CveCompra > 0").MAX("Fecha").ToDate.Year.ToString)) - params.Add(New ReportParameter("Nombre", DtComprobacion.MAX("SubProyecto"))) - params.Add(New ReportParameter("Fecha", Now.Date.ToString)) - params.Add(New ReportParameter("Elaboro", "")) - params.Add(New ReportParameter("Autorizo", "")) - params.Add(New ReportParameter("ElaboroPuesto", "")) - params.Add(New ReportParameter("AutorizoPuesto", "")) - ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion.FiltraParametros("CveCompra > 0"), params, String.Format("IE{0}", CveIE), RDSName:="DsCompras") - End If - Else - params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString)) - - params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString)) - params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString)) - params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString)) - params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString)) - params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString)) - params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString)) - params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString)) - - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF") - End If - Else - If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then - If ObjIE.DtResultados.Rows.Count > 0 Then - - Dim reportDataSetsList As New List(Of ReportDataSource) - - Dim dtMovs As New DataTable - Dim Mov As New ClsContabilidad - If Mov.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then - - dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312)") - - If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then - 'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES - For Each Dr As DataRow In dtMovs.Rows - Dr("Importe") = Dr("ImporteMN").ToString.ToDecimal - Dr("ImporteNC") = Dr("ImporteNC").ToString.ToDecimal * Dr("TC").ToString.ToDecimal - Dr("Total") = Dr("Total").ToString.ToDecimal * Dr("TC").ToString.ToDecimal - Dr("Saldo") = Dr("Saldo").ToString.ToDecimal * Dr("TC").ToString.ToDecimal - Next - End If - - End If - Mov.Dispose() - Dim rds = New ReportDataSource("DataSet1", dtMovs) - reportDataSetsList.Add(rds) - - Dim dtnc As New DataTable - Dim ObjCompra As New ClsCompras() - If ObjCompra.GetComprasNotasCredito(-1, -1, CveIE) Then - dtnc = ObjCompra.DtResultados - End If - ObjCompra.Dispose() - Dim rds2 = New ReportDataSource("DataSet2", dtnc) - reportDataSetsList.Add(rds2) - dtnc.Dispose() - - Dim paramList As New List(Of ReportParameter) - With paramList - 'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - - Dim LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa) - Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)) - .Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - .Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - .Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - .Add(New ReportParameter("Cuenta", ObjIE.NumCuenta, True)) - .Add(New ReportParameter("Fecha", ObjIE.FechaDocumento.ToString("dd/MM/yyyy"), True)) - .Add(New ReportParameter("Paguese", ObjIE.PagueseA.Trim, True)) - .Add(New ReportParameter("Importe", ObjIE.Importe.ToString, True)) - .Add(New ReportParameter("Observaciones", ObjIE.Observaciones, True)) - .Add(New ReportParameter("Folio", ObjIE.Folio, True)) - .Add(New ReportParameter("MonedaAbreviatura", ObjIE.MonedaAbreviatura, True)) - - - If Imagen.Exists Then - .Add(New ReportParameter("LogoPath", logouri)) - Else - .Add(New ReportParameter("LogoPath", "")) - End If - - End With - dtMovs.Dispose() - - ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF") - - End If - - End If - End If - - DtGvRH.Dispose() - DtComprobacion.Dispose() - ParamComprobacion.Dispose() - - ObjIE.Dispose() - End Sub - -#End Region - -#Region "OP = RECIBO DE PAGOS" - Private Sub ImprimirReciboDePagos(CveIE As Integer, CveVenta As Integer) - - PDFReciboDePagos(CveVenta, CveIE, -1) - - End Sub -#End Region - -#Region "OP = VTA - PyME" - - ' 04/05/2018 - Pruebas de impresion de factura PyME - Private Sub GeneraPDFVtaPyMe(Venta As Modelos.Factura, Optional Formato As String = "PDF") - Dim Directorio1 As String = String.Format("{0}Formatos\Factura.mrt", UsuarioActual.Empresa.Ruta) - Dim File As FileInfo = New FileInfo(Directorio1) - - If File.Exists Then - Dim Reporte As StiReport = New StiReport() - Reporte.Load(Directorio1) - Reporte.Dictionary.DataSources.Clear() - - Dim ds As DataSet = New DataSet() - Venta.DtDetalle.TableName = "Datos" - - ds.Tables.Add(Venta.DtDetalle) - - Reporte.RegData(ds) - - Reporte.Dictionary.Variables("Empresa").Value = UsuarioActual.Empresa.Empresa - - Reporte.Dictionary.Variables("Tipo").Value = "Ingreso" - Reporte.Dictionary.Variables("RFC").Value = UsuarioActual.Empresa.RFC - Reporte.Dictionary.Variables("Serie").Value = Venta.Serie - Reporte.Dictionary.Variables("Folio").Value = Venta.Folio.ToString() - - Reporte.Dictionary.Variables("ClienteNombre").Value = Venta.Cliente.Nombre - Reporte.Dictionary.Variables("ClienteDireccion").Value = Venta.Cliente.Direccion - Reporte.Dictionary.Variables("ClienteLugar").Value = Venta.Cliente.Ciudad - Reporte.Dictionary.Variables("ClienteRFC").Value = Venta.Cliente.RFC - - Reporte.Dictionary.Variables("DomicilioExpedicion").Value = Venta.SubProyecto.Direccion - - Dim SubtTotal As Double = (Venta.DtDetalle.SUM("PU") * Venta.DtDetalle.SUM("Cantidad")) '* 0.16 lleva el IVA? - Dim IVA As Double = SubtTotal * 0.16 'lleva IVA? - Dim Total As Double = SubtTotal + IVA - - 'Reporte.Dictionary.Variables("Importe").Value = - Reporte.Dictionary.Variables("ImporteLetra").Value = Total.Texto2Letras() - - Reporte.Dictionary.Variables("SubTotal").Value = SubtTotal.ToString() - Reporte.Dictionary.Variables("IVA").Value = IVA.ToString() - Reporte.Dictionary.Variables("Total").Value = Total.ToString() - - Reporte.Dictionary.Variables("UsoCFDI").Value = Venta.UsoCFDI - Reporte.Dictionary.Variables("MetodoPago").Value = Venta.MetodoPago33 - Reporte.Dictionary.Variables("FormaPago").Value = Venta.FormaPago33 - - Reporte.Dictionary.Variables("QR").Value = "lajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsad" - Reporte.Dictionary.Variables("SelloCFDI").Value = "lajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsadlajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsadlajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsad" - Reporte.Dictionary.Variables("SelloSAT").Value = "lajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsad" - Reporte.Dictionary.Synchronize() - - StiReportResponse.ResponseAsPdf(Me, Reporte) - Else - RegistraScript("alert('No hay un formato de factura predefinido,favor de comunicar a soporte tecnico')") - End If - End Sub -#End Region - -#Region "OP = ENTREGAS - Entregas por realizar" - Public Sub ImprimeEntregasPorRealizar(CveAsignacionEntrega As Long, pUsuarioEntregar As String) - Dim Correcto As Boolean = False - Dim DtPaqueteriasGuias As DataTable = Nothing - Dim ObjGeneral As New ClsGenerales - If ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa, CveAsignacionEntrega) Then - DtPaqueteriasGuias = ObjGeneral.DtResultados - Correcto = True - End If - ObjGeneral.Dispose() - If Correcto Then - Dim RepParams As New List(Of ReportParameter) - RepParams.Add(New ReportParameter("Fecha", DateTime.Today.ToString())) - RepParams.Add(New ReportParameter("AsignadoA", pUsuarioEntregar)) - RepParams.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - - ImprimirPDF($"{UsuarioActual.Empresa.Ruta}Formatos\EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios") - End If - - End Sub -#End Region - -#Region "OP = Etiqueta - Etiquetas de recepcion" - Private Sub ImprimirEtiqueta(CveMovimiento As Integer, Modalidad As String) - - Dim ObjInventarios As New ClsInventarios - Dim PS As String = "" - Dim All As Byte() - Using ms As New MemoryStream - Using d As New Document - Using Copy As New PdfCopy(d, ms) - d.Open() - If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then - If ObjInventarios.DtResultados IsNot Nothing Then - For Each DetalleRow As DataRow In ObjInventarios.DtResultados.Rows - Dim CvePS As Integer = DetalleRow.Item("CvePS").ToString.ToEntero - Dim Lote As String = DetalleRow.Item("Lote").ToString - Dim FechaCaducidad As Date = DetalleRow.Item("FechaCaducidad").ToString.ToDate - PS = String.Format("{0} - {1}", DetalleRow.Item("Codigo").ToString, DetalleRow.Item("PS").ToString) - If Modalidad = "Individual" Then - Dim reporteByte As Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS) - - Dim reader As New PdfReader(reporteByte) - Dim Paginas As Integer = reader.NumberOfPages - Dim Contador As Integer = 0 - While Contador < Paginas - Contador += 1 - Copy.AddPage(Copy.GetImportedPage(reader, Contador)) - End While - Else - Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1 - - For contador As Integer = 0 To Cant - Dim reporteByte As Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS) - - Dim reader As New PdfReader(reporteByte) - Dim Paginas As Integer = reader.NumberOfPages - Dim Cont As Integer = 0 - While Cont < Paginas - Cont += 1 - Copy.AddPage(Copy.GetImportedPage(reader, Cont)) - End While - Next - End If - Next - End If - End If - d.Close() - - End Using - End Using - All = ms.ToArray() - End Using - ImprimirbytesPDF(All, PS.ToString) - - - If Modalidad = "Individual" Then - Else - - End If - ObjInventarios.Dispose() - End Sub - - Private Sub ImprimirEtiqueta2(CvePS As Integer, PS As String, CveAlmacen As String, Modalidad As String) - - Dim ObjInventarios As New ClsInventarios - - Dim All As Byte() - Using ms As New MemoryStream - Using d As New Document - Using Copy As New PdfCopy(d, ms) - d.Open() - If ObjInventarios.GetExistenciasCaducidad(CvePS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveAlmacen.ToString) Then - If ObjInventarios.DtResultados IsNot Nothing Then - For Each DetalleRow As DataRow In ObjInventarios.DtResultados.Rows - Dim Lote As String = DetalleRow.Item("Lote").ToString - Dim FechaCaducidad As Date = DetalleRow.Item("FechaCaducidad").ToString.ToDate - If Modalidad = "Individual" Then - Dim reporteByte As Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS) - - Dim reader As New PdfReader(reporteByte) - Dim Paginas As Integer = reader.NumberOfPages - Dim Contador As Integer = 0 - While Contador < Paginas - Contador += 1 - Copy.AddPage(Copy.GetImportedPage(reader, Contador)) - End While - Else - Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1 - - For contador As Integer = 0 To Cant - Dim reporteByte As Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS) - - Dim reader As New PdfReader(reporteByte) - Dim Paginas As Integer = reader.NumberOfPages - Dim Cont As Integer = 0 - While Cont < Paginas - Cont += 1 - Copy.AddPage(Copy.GetImportedPage(reader, Cont)) - End While - Next - End If - Next - End If - End If - d.Close() - - End Using - End Using - All = ms.ToArray() - End Using - ImprimirbytesPDF(All, PS.ToString) - - - If Modalidad = "Individual" Then - Else - - End If - ObjInventarios.Dispose() - End Sub - - Private Function GenerarEtiqueta(CvePS As Integer, Lote As String, FechaCaducidad As Date, PS As String) As Byte() - Dim QrDescarga As String = "" - Dim Cfdi As New RVCFDI33.GeneraCFDI() - Dim b As Byte() = Cfdi.ConvertirQrCode(String.Format("?CvePS={0}&Lote={1}&Fecha={2}", CvePS, Lote, Format(FechaCaducidad, "dd/MM/yyyy").ToString())) - QrDescarga = Convert.ToBase64String(b) - Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("QR", QrDescarga)) - params.Add(New ReportParameter("PS", PS)) - params.Add(New ReportParameter("Lote", Lote)) - params.Add(New ReportParameter("FechaCad", FechaCaducidad.ToString("dd/MM/yyyy"))) - Return StreamPDF("Empresas/Grales/Formatos/EtiquetaDeRecepcion.rdlc", New DataTable, params) - End Function -#End Region - -#Region "OP = AJUSTE" - Private Sub ImprimirPDFAjuste(CveGarantiaDetalle As Integer) - ' Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim RowAjuste As DataRow = Nothing - - Using ObjAcum As New ClsAcumuladores - If ObjAcum.GetFoliosGarantiasDetalle(-1, CveGarantiaDetalle) Then - If ObjAcum.DtResultados.Rows.Count > 0 Then - RowAjuste = ObjAcum.DtResultados.Rows(0) - End If - End If - End Using - - Dim CvePSAjuste As Integer = RowAjuste("CvePS").ToString.ToEntero() - Dim CveCliente As Integer = RowAjuste("CveCliente").ToString.ToEntero() - Dim CveClienteDistribuidor As Integer = RowAjuste("CveClienteDistribuidor").ToString.ToEntero() - Dim Consec As String = RowAjuste("Consecutivo").ToString - Dim FolioGarantia As String = RowAjuste("FolioGarantia").ToString - Dim FechaAjuste As DateTime = RowAjuste("FechaVenta").ToString.ToDateTime() - Dim FechaReclamacion As DateTime = RowAjuste("FechaReclamacion").ToString.ToDateTime() - Dim TipoDefecto As String = RowAjuste("TipoDefecto").ToString - Dim CveTipoUso As Integer = RowAjuste("CveTipoUso").ToString.ToEntero() - Dim CodigoEnsamble As String = RowAjuste("CodigoEnsamble").ToString - Dim CodigoLinea As String = RowAjuste("CodigoLinea").ToString - Dim CodigoInspeccion As String = RowAjuste("CodigoInspeccion").ToString - - Dim MesesUso As String = "0" - Dim PorcentajeAjuste As String = RowAjuste("PorcentajeAjuste").ToString - Dim BCIAjuste As String = RowAjuste("BCIAjuste").ToString - Dim Etiqueta As String = RowAjuste("Etiqueta").ToString - - Dim Año As String = RowAjuste("Año").ToString - Dim Comprobante As String = RowAjuste("Comprobante").ToString - - Dim ModeloAuto As String = RowAjuste("ModeloAuto").ToString - Dim MarcaAuto As String = RowAjuste("MarcaAuto").ToString - Dim CodigoTD As String = RowAjuste("CodigoTD").ToString - - Dim MarcaPS As String = "" - Dim CveMarca As Integer = -1 - - Dim FechaI As Date = FechaAjuste.AddDays(1) - Dim FechaF As Date = FechaReclamacion - - Dim Dia As Integer = FechaI.Day - Try - 'validación adicional, para saber si el mes tiene 31 días y el actua es menor. - If FechaI.Day > Today.LastDayOfMonth.Day Then Dia = Today.LastDayOfMonth.Day - Dim FechaT As Date = String.Format("{0}/{1}/{2}", Dia, FechaF.Month, FechaF.Year).ToDate 'armo la fecha con el día del mes actual - - Dim MesesTrascurridos As Integer = Math.Round(DateDiff(DateInterval.Day, FechaI, FechaT) / 30.4, 2).ToEntero 'saco los meses y lo redondeo - - If FechaT > FechaF Then - 'todavía está en el mes actual. - MesesTrascurridos = MesesTrascurridos - Else - MesesTrascurridos = MesesTrascurridos + 1 - End If - - MesesUso = MesesTrascurridos.ToString - - Catch ex As Exception - OnError("Ocurrió un error al calcular los meses de uso", ex) - End Try - - - Dim ObjPS As New ClsProductosServicios - If ObjPS.GetPS(CvePSAjuste, -1, UsuarioActual.CveEmpresa) Then - MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", CvePSAjuste)) - End If - ObjPS.Dispose() - - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - Dim DtDatos As New DataTable - - Dim params As New List(Of ReportParameter) - - - 'Informacion Distribuidor - If (CveClienteDistribuidor > 0) Then - - Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveClienteDistribuidor)) - Dim CiudadEstado As String = "" - Dim Telefono As String = "" - Dim Nombre As String = "" - - If DatosClienteSeleccionado IsNot Nothing Then - CiudadEstado = String.Format("{0}, {1}", DatosClienteSeleccionado("Ciudad"), DatosClienteSeleccionado("Estado")) - Telefono = DatosClienteSeleccionado("Telefono").ToString - Nombre = DatosClienteSeleccionado("Nombre").ToString - End If - - params.Add(New ReportParameter("NombreDistribuidor", Nombre)) - params.Add(New ReportParameter("CiudadEstado", CiudadEstado)) - params.Add(New ReportParameter("TelCliente", Telefono)) - End If - - - params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Consec", Consec)) - params.Add(New ReportParameter("FolioAcuse", FolioGarantia)) - - 'Informacion de Garantia o ajuste - params.Add(New ReportParameter("FechaInst", FechaAjuste.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Fecha", FechaReclamacion.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Defecto", TipoDefecto)) - params.Add(New ReportParameter("MesesUso", MesesUso)) - params.Add(New ReportParameter("PorcentajeAjuste", PorcentajeAjuste)) - - 'Informacion Acumulador - params.Add(New ReportParameter("CodEnsamble", CodigoEnsamble)) - params.Add(New ReportParameter("CodLinea", CodigoLinea)) - params.Add(New ReportParameter("CodInspeccion", CodigoInspeccion)) - params.Add(New ReportParameter("Tipo", BCIAjuste)) - params.Add(New ReportParameter("Marca", MarcaPS)) - params.Add(New ReportParameter("Etiqueta", Etiqueta)) - - 'Informacion Vehiculo - params.Add(New ReportParameter("MarcaAuto", MarcaAuto)) - params.Add(New ReportParameter("TipoAuto", ModeloAuto)) - - 'Informacion Consumidor - If (CveCliente > 0) Then - - Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveCliente)) - - Dim Nombre As String = "" - Dim Ciudad As String = "" - Dim Estado As String = "" - Dim Direccion As String = "" - Dim Telefono As String = "" - - If DatosClienteSeleccionado IsNot Nothing Then - Nombre = DatosClienteSeleccionado("Nombre").ToString - Ciudad = DatosClienteSeleccionado("Ciudad").ToString - Estado = DatosClienteSeleccionado("Estado").ToString - Direccion = DatosClienteSeleccionado("Direccion").ToString - Telefono = DatosClienteSeleccionado("Telefono").ToString - End If - - params.Add(New ReportParameter("NombreCliente", Nombre)) - params.Add(New ReportParameter("Direccion", Direccion)) - params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado))) - params.Add(New ReportParameter("TelConsumidor", Telefono)) - End If - - params.Add(New ReportParameter("Anio", Año)) - params.Add(New ReportParameter("Comprobante", Comprobante)) - params.Add(New ReportParameter("CodigoTD", CodigoTD)) - - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF", Content_Disposition:="inline") - End Sub - - Private Sub ImprimirPDFAjuste(CvePSAjuste As Integer, CveCliente As Integer, CveClienteDistribuidor As Integer, Consec As String, FolioGarantia As String, FechaAjuste As DateTime, FechaReclamacion As DateTime, - TipoDefecto As String, CveTipoUso As Integer, CodigoEnsamble As String, CodigoLinea As String, CodigoInspeccion As String, PorcentajeAjuste As String, - BCIAjuste As String, Etiqueta As String, Año As String, Comprobante As String, ModeloAuto As String, MarcaAuto As String, CodigoTD As String) - - Dim MesesUso As String = "0" - - Dim MarcaPS As String = "" - Dim CveMarca As Integer = -1 - - Dim FechaI As Date = FechaAjuste.AddDays(1) - Dim FechaF As Date = FechaReclamacion - - Dim Dia As Integer = FechaI.Day - Try - 'validación adicional, para saber si el mes tiene 31 días y el actua es menor. - If FechaI.Day > Today.LastDayOfMonth.Day Then Dia = Today.LastDayOfMonth.Day - Dim FechaT As Date = String.Format("{0}/{1}/{2}", Dia, FechaF.Month, FechaF.Year).ToDate 'armo la fecha con el día del mes actual - - Dim MesesTrascurridos As Integer = Math.Round(DateDiff(DateInterval.Day, FechaI, FechaT) / 30.4, 2).ToEntero 'saco los meses y lo redondeo - - If FechaT > FechaF Then - 'todavía está en el mes actual. - MesesTrascurridos = MesesTrascurridos - Else - MesesTrascurridos = MesesTrascurridos + 1 - End If - - MesesUso = MesesTrascurridos.ToString - - Catch ex As Exception - OnError("Ocurrió un error al calcular los meses de uso", ex) - End Try - - - Dim ObjPS As New ClsProductosServicios - If ObjPS.GetPS(CvePSAjuste, -1, UsuarioActual.CveEmpresa) Then - MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", CvePSAjuste)) - End If - ObjPS.Dispose() - - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - Dim DtDatos As New DataTable - - Dim params As New List(Of ReportParameter) - - - 'Informacion Distribuidor - If (CveClienteDistribuidor > 0) Then - - Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveClienteDistribuidor)) - Dim CiudadEstado As String = "" - Dim Telefono As String = "" - Dim Nombre As String = "" - - If DatosClienteSeleccionado IsNot Nothing Then - CiudadEstado = String.Format("{0}, {1}", DatosClienteSeleccionado("Ciudad"), DatosClienteSeleccionado("Estado")) - Telefono = DatosClienteSeleccionado("Telefono").ToString - Nombre = DatosClienteSeleccionado("Nombre").ToString - End If - - params.Add(New ReportParameter("NombreDistribuidor", Nombre)) - params.Add(New ReportParameter("CiudadEstado", CiudadEstado)) - params.Add(New ReportParameter("TelCliente", Telefono)) - End If - - - params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Consec", Consec)) - params.Add(New ReportParameter("FolioAcuse", FolioGarantia)) - - 'Informacion de Garantia o ajuste - params.Add(New ReportParameter("FechaInst", FechaAjuste.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Fecha", FechaReclamacion.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Defecto", TipoDefecto)) - params.Add(New ReportParameter("MesesUso", MesesUso)) - params.Add(New ReportParameter("PorcentajeAjuste", PorcentajeAjuste)) - - 'Informacion Acumulador - params.Add(New ReportParameter("CodEnsamble", CodigoEnsamble)) - params.Add(New ReportParameter("CodLinea", CodigoLinea)) - params.Add(New ReportParameter("CodInspeccion", CodigoInspeccion)) - params.Add(New ReportParameter("Tipo", BCIAjuste)) - params.Add(New ReportParameter("Marca", MarcaPS)) - params.Add(New ReportParameter("Etiqueta", Etiqueta)) - - 'Informacion Vehiculo - params.Add(New ReportParameter("MarcaAuto", MarcaAuto)) - params.Add(New ReportParameter("TipoAuto", ModeloAuto)) - - 'Informacion Consumidor - If (CveCliente > 0) Then - - Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveCliente)) - - Dim Nombre As String = "" - Dim Ciudad As String = "" - Dim Estado As String = "" - Dim Direccion As String = "" - Dim Telefono As String = "" - - If DatosClienteSeleccionado IsNot Nothing Then - Nombre = DatosClienteSeleccionado("Nombre").ToString - Ciudad = DatosClienteSeleccionado("Ciudad").ToString - Estado = DatosClienteSeleccionado("Estado").ToString - Direccion = String.Format("{0} {1}{2} COL. {3}", DatosClienteSeleccionado("Direccion"), DatosClienteSeleccionado("NoInt"), DatosClienteSeleccionado("NoExt"), DatosClienteSeleccionado("Colonia")) - Telefono = DatosClienteSeleccionado("Telefono").ToString - End If - - params.Add(New ReportParameter("NombreCliente", Nombre)) - params.Add(New ReportParameter("Direccion", Direccion)) - params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado))) - params.Add(New ReportParameter("TelConsumidor", Telefono)) - End If - - params.Add(New ReportParameter("Anio", Año)) - params.Add(New ReportParameter("Comprobante", Comprobante)) - params.Add(New ReportParameter("CodigoTD", CodigoTD)) - - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF", Content_Disposition:="inline") - End Sub -#End Region - -End Class +Option Strict On +Option Explicit On + +Imports Extensiones +Imports System.Data +Imports Microsoft.Reporting.WebForms +Imports System.Xml +Imports System.IO +Imports iTextSharp.text +Imports iTextSharp.text.pdf + +Imports Stimulsoft.Report +Imports Stimulsoft.Report.Components +Imports Stimulsoft.Report.Dictionary +Imports Stimulsoft.Report.Web +Imports Newtonsoft.Json.Linq + +Partial Class PopUpVerFactura + Inherits ClsPaginas + + Private Shared missing As Object = System.Reflection.Missing.Value + +#Region " PROPIEDADES " + Public Property DtMovimientos() As DataTable + Get + Return CType(ViewState("DtMovimientos"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtMovimientos") = value + End Set + End Property + Public Property DtDetalle() As DataTable + Get + Return CType(ViewState("DtDetalle"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtDetalle") = value + End Set + End Property + Public Property Opcion As String + Get + Return CType(ViewState("Opcion"), String) + End Get + Set(value As String) + ViewState("Opcion") = value + End Set + End Property + Public Property Param As String + Get + Return CType(ViewState("Param"), String) + End Get + Set(value As String) + ViewState("Param") = value + End Set + End Property + Private Property TmpDTOS As DataTable + Get + Return CType(ViewState("TmpDTOS"), DataTable) + End Get + Set(value As DataTable) + ViewState("TmpDTOS") = value + End Set + End Property + Private Property TmpDTMaterialesOS As DataTable + Get + Return CType(ViewState("TmpDTMaterialesOS"), DataTable) + End Get + Set(value As DataTable) + ViewState("TmpDTMaterialesOS") = value + End Set + End Property + + Private ReadOnly Property DomicilioFiscalCompu As String + Get + Dim SisEmpresa As New ClsSisEmpresas() + Dim EmpInfo As DataRow + Dim domicilioFiscal As String = "" + If SisEmpresa.GetEmpresas(72, "-1", "-1", "-1", "-1") Then + EmpInfo = SisEmpresa.DtResultados.Rows(0) + domicilioFiscal = String.Format("{0} No.{1}, Col. {2}, CP:{3},{4},{5},MEXICO. RFC:{6}", EmpInfo.Item("Direccion"), EmpInfo.Item("NoExt"), EmpInfo.Item("Colonia"), EmpInfo.Item("CP"), EmpInfo.Item("Ciudad"), EmpInfo.Item("Estado"), EmpInfo.Item("RFC")) + Return domicilioFiscal + End If + Return "" + End Get + End Property + 'Private Property SessionPorImpresion As Boolean + ' Get + ' Return CBool(IfNull(ViewState("SessionPorImpresion"), False, ViewState("SessionPorImpresion"))) + ' End Get + ' Set(value As Boolean) + ' ViewState("SessionPorImpresion") = value + ' End Set + 'End Property +#End Region + + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not IsPostBack Then + 'CREA EL OBJECTO USUARIO A PARTIR DEL TOKEN + If Request.Headers("ADSToken") IsNot Nothing Then + Dim UserParams As Hashtable = Parametros(Decripta((Request.Headers("ADSToken").ToString))) + Dim CveEmpresaToken As Integer = UserParams("CVEEMPRESA").ToString().ToEntero() + Dim CveUsuario As Integer = IfNull(UserParams("CVEUSUARIO"), 100, UserParams("CVEUSUARIO").ToString().ToEntero()).ToString().ToEntero() + + Dim UsuarioToken = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario) + + If UsuarioToken IsNot Nothing AndAlso Context.Session("UsuarioSIG") Is Nothing Then + Context.Session("UsuarioSIG") = UsuarioToken + End If + End If + + If Request("RFC") IsNot Nothing AndAlso Request("File") IsNot Nothing Then + Dim Path As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), Request("File")) + Dim Archivo As New System.IO.FileInfo(Path) + + If Archivo.Exists Then + HttpContext.Current.Response.Clear() + HttpContext.Current.Response.ClearContent() + HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf") + HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) + HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + HttpContext.Current.Response.TransmitFile(Path) + 'HttpContext.Current.Response.Flush() + HttpContext.Current.Response.End() + End If + Archivo = Nothing + + ElseIf Request("RFC") IsNot Nothing AndAlso Request("FileV") IsNot Nothing Then + Dim Path As String = String.Format("{0}Ventas\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), Request("FileV")) + Dim Archivo As New System.IO.FileInfo(Path) + + If Archivo.Exists Then + HttpContext.Current.Response.Clear() + HttpContext.Current.Response.ClearContent() + HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf") + HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) + HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + HttpContext.Current.Response.TransmitFile(Path) + 'HttpContext.Current.Response.Flush() + HttpContext.Current.Response.End() + End If + Archivo = Nothing + + ElseIf Request("File") IsNot Nothing AndAlso Request("TipoDocto") IsNot Nothing AndAlso Request("TipoArchivo") IsNot Nothing Then + Dim Path As String = "" ' String.Format("{0}Ventas\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), Request("FileV")) + + Select Case Request("TipoArchivo") + Case "PDF" + Path = String.Format("{0}PDF\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("TipoDocto"), Request("File")) + Case "XML" + Path = String.Format("{0}XML\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("TipoDocto"), Request("File")) + End Select + + Dim Archivo As New System.IO.FileInfo(Path) + + If Archivo.Exists Then + HttpContext.Current.Response.Clear() + HttpContext.Current.Response.ClearContent() + HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf") + HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) + HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + HttpContext.Current.Response.TransmitFile(Path) + 'HttpContext.Current.Response.Flush() + HttpContext.Current.Response.End() + End If + Archivo = Nothing + Else + If Request("File") IsNot Nothing Then + Dim Path As String = String.Format("{0}Layout\{1}", UsuarioActual.Empresa.Ruta, Request("File")) + Dim Archivo As New System.IO.FileInfo(Path) + + If Archivo.Exists Then + HttpContext.Current.Response.Clear() + HttpContext.Current.Response.ClearContent() + HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "txt", "text/plain", "application/pdf") + HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=" & Archivo.Name) + HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + HttpContext.Current.Response.TransmitFile(Path) + 'HttpContext.Current.Response.Flush() + HttpContext.Current.Response.End() + End If + Archivo = Nothing + End If + End If + + If Request("REPORTE") IsNot Nothing Then + CType(Session("DTPDF"), HtmlTable).ExportToPDF("Reporte") + End If + + 'OPCIONES + + If Request("P") IsNot Nothing AndAlso Decripta((Request("P").ToString)) <> "" Then + Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString))) + If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then + SeleccionaReporte(UrlParametros) + End If + End If + + If Request("onlyPrint") IsNot Nothing Then + If Request("onlyPrint").ToString() = "Pallet" Then + imprimirpallet2(Request("CvePallet").ToString.ToEntero()) + End If + If Request("onlyPrint").ToString() = "PalletCaja" Then + imprimirpallet(Request("CvePallet").ToString.ToEntero()) + End If + If Request("onlyPrint").ToString() = "manifiesto" Then + imprimirManifiesto(Request("cveEmbarqueManifiesto").ToString.ToEntero()) + End If + End If + + End If + End Sub + + Private Sub imprimirManifiesto(cveEmbarqueManifiesto As Integer) + Dim NoEmbarque As String = "" + Dim Fecha As String = "" + Dim SubProyecto As String = "" + Dim AgenciaAduanalUSA As String = "" + Dim AgenciaAduanalMEX As String = "" + Dim Temperatura As String = "" + Dim Hora As String = "" + Dim Chofer As String = "" + Dim CamPlaca As String = "" + Dim Camion As String = "" + Dim Rem1Placa As String = "" + Dim Remolque1 As String = "" + Dim NoPallets As String = "" + Dim NoBultos As String = "" + Dim NoKgManifiesto As String = "" + Dim Mercado As String = "" + Dim NoFactura As String = "" + + Dim LongitudCaja As String = "" + Dim LineaTransportacion As String = "" + Dim SCAC As String = "" + Dim CAAT As String = "" + Dim NumeroTrailer As String = "" + + + Dim tablaReporte As New DataTable + + 'Envase = "1 1/9" + 'Tamano = "Small" + 'Cultivo = "Tomate" + 'noPallet = "000001" + 'Variedad = "Golden" + Using objnom As New ClsNominas + If objnom.PA_AGRO_Embarque_ManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then + Dim row As DataRow = objnom.DtResultados.Rows(0) + NoEmbarque = row("NoEmbarque").ToString() + Fecha = String.Format("{0:dd/MM/yyyy}", row("Fecha")) + SubProyecto = row("SubProyecto").ToString() + AgenciaAduanalUSA = row("AgenciaAduanalUSA").ToString() + AgenciaAduanalMEX = row("AgenciaAduanalMEX").ToString() + Temperatura = row("Temperatura").ToString() + Hora = String.Format("{0:hh }:{0:mm }:{0:ss tt}:", row("FechaIng")) + Chofer = row("Chofer").ToString() + CamPlaca = row("CamPlaca").ToString() + Camion = String.Format("{0} {1}", row("CamEspecificacion"), row("CamAnio")) + Rem1Placa = row("Rem1Placa").ToString() + NoFactura = row("NoFactura").ToString() + Remolque1 = String.Format("{0} ", row("Rem1Especificacion"), row("Rem1Anio")) + Mercado = If(row("AgenciaAduanalUSA").ToString() = "2", "Extranjero", "Nacional") + + NumeroTrailer = row("NumeroTrailer").ToString() + + LongitudCaja = row("LongitudCaja").ToString() + LineaTransportacion = row("LineaTransportacion").ToString() + SCAC = row("SCAC").ToString() + CAAT = row("CAAT").ToString() + + 'If row("CveCamionRemolque1").ToString() = "1" Then + ' Rem1Placa = "12-TF-5E" + ' Remolque1 = "Remolque 1" + 'Else + ' Rem1Placa = "15-TF-7f" + ' Remolque1 = "Remolque 2" + + 'End If + + If objnom.PA_Agro_Embarque_PalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then + NoPallets = objnom.DtResultados.Rows.Count.ToString() + NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2") + NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0") + tablaReporte = objnom.DtResultados + End If + End If + 'Remolque 1 12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2 15-TF-7f + End Using + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("NoEmbarque", NoEmbarque)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("SubProyecto", SubProyecto)) + params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA)) + params.Add(New ReportParameter("AgenciaAduanalMEX", AgenciaAduanalMEX)) + params.Add(New ReportParameter("Temperatura", Temperatura)) + params.Add(New ReportParameter("Hora", Hora)) + params.Add(New ReportParameter("Chofer", Chofer)) + params.Add(New ReportParameter("CamPlaca", CamPlaca)) + params.Add(New ReportParameter("Camion", Camion)) + params.Add(New ReportParameter("Rem1Placa", Rem1Placa)) + params.Add(New ReportParameter("Remolque1", Remolque1)) + + + params.Add(New ReportParameter("LongitudCaja", LongitudCaja)) + params.Add(New ReportParameter("LineaTransportacion", LineaTransportacion)) + params.Add(New ReportParameter("SCAC", SCAC)) + params.Add(New ReportParameter("CAAT", CAAT)) + params.Add(New ReportParameter("NumeroTrailer", NumeroTrailer)) + + + params.Add(New ReportParameter("NoFactura", NoFactura)) + params.Add(New ReportParameter("Mercado", Mercado)) + params.Add(New ReportParameter("NoBultos", NoBultos)) + params.Add(New ReportParameter("NoPallets", NoPallets)) + params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto)) + + + + + + + + Dim lrds As New List(Of ReportDataSource) + Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte} + lrds.Add(rds) + '"Empresas/Grales/Formatos/EquiposGPS.rdlc" + '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" + ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Manifesto") + End Sub + Private Sub imprimirpallet2(cvePallet As Integer) + Dim Envase As String = "" + Dim Tamano As String = "" + Dim Cultivo As String = "" + Dim noPallet As String = "" + Dim Variedad As String = "" + + 'Envase = "1 1/9" + 'Tamano = "Small" + 'Cultivo = "Tomate" + 'noPallet = "000001" + 'Variedad = "Golden" + Using objnom As New ClsNominas + If objnom.PA_Agro_Embarque_PalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then + Dim row As DataRow = objnom.DtResultados.Rows(0) + Envase = row("Envase").ToString() + Tamano = row("Tamaño").ToString() + Cultivo = row("Cultivo").ToString() + noPallet = row("Codigo").ToString() + Variedad = row("CultivoVariedad").ToString() + + End If + + End Using + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("Envase", Envase)) + params.Add(New ReportParameter("Tamano", Tamano)) + params.Add(New ReportParameter("Cultivo", Cultivo)) + params.Add(New ReportParameter("noPallet", noPallet)) + params.Add(New ReportParameter("Variedad", Variedad)) + Dim tablaReporte As New DataTable + '"Empresas/Grales/Formatos/EquiposGPS.rdlc" + '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" + ImprimirPDF("GPS/PalletEtiqueta2.rdlc", (New List(Of ReportDataSource)), params, "Pallet") + End Sub + Private Sub imprimirpallet(cvePallet As Integer) + Dim Envase As String = "" + Dim Tamano As String = "" + Dim Cultivo As String = "" + Dim noPallet As String = "" + Dim FormatoImpresion As String = "" + + 'Envase = "1 1/9" + 'Tamano = "Small" + 'Cultivo = "Tomate" + 'noPallet = "000001" + Using objnom As New ClsNominas + If objnom.PA_Agro_Embarque_PalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then + Dim row As DataRow = objnom.DtResultados.Rows(0) + Envase = row("Envase").ToString() + Tamano = row("Tamaño").ToString() + Cultivo = row("Cultivo").ToString() + noPallet = row("Codigo").ToString() + FormatoImpresion = row("FormatoImpresion").ToString() + + End If + + End Using + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("Envase", Envase)) + params.Add(New ReportParameter("Tamano", Tamano)) + params.Add(New ReportParameter("Cultivo", Cultivo)) + params.Add(New ReportParameter("noPallet", noPallet)) + params.Add(New ReportParameter("FormatoImpresion", FormatoImpresion)) + Dim tablaReporte As New DataTable + '"Empresas/Grales/Formatos/EquiposGPS.rdlc" + '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" + ImprimirPDF("GPS/PalletEtiqueta.rdlc", (New List(Of ReportDataSource)), params, "Pallet Caja") + End Sub +#Region "U S U A R I O - T O K E N" + + Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario + + Dim UsuarioToken As Usuario = Nothing + Dim ObjUsuarios As New ClsSisUsuarios + If ObjUsuarios.GetUsuarios(CveUsuario) Then + If ObjUsuarios.DtResultados.Rows.Count > 0 Then + Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() + Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() + UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa) + UsuarioToken.CveEmpresa = CveEmpresa + CreaObjetoEmpresa(UsuarioToken) + End If + End If + ObjUsuarios.Dispose() + Return UsuarioToken + End Function + Private Sub CreaObjetoEmpresa(ByRef UsuarioToken As Usuario) + + Dim ObjEmpresa As New ClsSisEmpresas() + If ObjEmpresa.GetEmpresas(UsuarioToken.CveEmpresa, "-1", "-1", "-1", "-1") Then + If ObjEmpresa.GetEmpresasFuncionalidades(UsuarioToken.CveEmpresa) Then + Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados + + Dim EmpresasFuncionalidades As New HybridDictionary + For Each Row As Data.DataRow In dttmp.Rows + EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString) + Next + ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades) + End If + + UsuarioToken.Empresa = ObjEmpresa.Empresa + End If + ObjEmpresa.Dispose() + End Sub +#End Region + + Private Sub SeleccionaReporte(UrlParametros As Hashtable) + + 'DESCARGA COMPROBANTE + If UrlParametros("OP").ToString = "IEComprobante" Then + DescargaComprobante(UrlParametros) + End If + + 'DESCARGA DOCUMENTO XML O PDF DE LA FACTURA COMPRA + If UrlParametros("OP").ToString = "Fact" Then + DescargaFactura(UrlParametros) + End If + + 'DESCARGA DOCUMENTO XML O PDF DE LA FACTURA VENTA + If UrlParametros("OP").ToString = "FactVta" Then + DescargaFacturaVenta(UrlParametros) + End If + + 'DESCARGA DOCUMENTO XML TRASLADO + If UrlParametros("OP").ToString = "DesXmlTra" Then + DescargaXMLTraslado(UrlParametros) + End If + + 'DESCARGA DOCUMENTO PDF TRASLADO + If UrlParametros("OP").ToString = "DesPdfTra" Then + DescargaPDFTraslado(UrlParametros) + End If + + 'DESCARGA DOCUMENTO XML DE UTILIDADES + If UrlParametros("OP").ToString = "DesXmlNom" Then + DescargaXMLUtilidades(UrlParametros) + End If + + 'DESCARGA DOCUMENTO XML DE VIATICOS + If UrlParametros("OP").ToString = "DesXmlVIA" Then + DescargaXMLViaticos(UrlParametros) + End If + + 'IMPRIME REPORTE DE ENTRADA DE ALMACEN + If UrlParametros("OP").ToString = "Alm" Then + If UrlParametros("CVEMOVIMIENTO") IsNot Nothing AndAlso UrlParametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then + CargaMovimientosAlmacen(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero) + End If + End If + + If UrlParametros("OP").ToString = "Etiqueta" Then + If UrlParametros("CVEMOVIMIENTO") IsNot Nothing AndAlso UrlParametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then + ImprimirEtiqueta(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, UrlParametros("MODALIDAD").ToString) + End If + End If + + If UrlParametros("OP").ToString = "Etiqueta2" Then + If UrlParametros("CVEPS") IsNot Nothing AndAlso UrlParametros("CVEPS").ToString.ToEntero > 0 Then + ImprimirEtiqueta2(UrlParametros("CVEPS").ToString.ToEntero, UrlParametros("PS").ToString, UrlParametros("CVEALMACEN").ToString, UrlParametros("MODALIDAD").ToString) + End If + End If + + 'IMPRIME OC + If UrlParametros("OP").ToString = "OC" Then + If UrlParametros("CVEOC") IsNot Nothing AndAlso UrlParametros("CVEOC").ToString.ToEntero > 0 Then + ImprimePDFOC(UrlParametros("CVEOC").ToString.ToEntero) + End If + End If + + 'IMPRIME COTIZACION OC + If UrlParametros("OP").ToString = "CotOC" Then + If UrlParametros("CVEOC") IsNot Nothing AndAlso UrlParametros("CVEOC").ToString.ToEntero > 0 Then + ImprimePDFCotOC(UrlParametros("CVEOC").ToString.ToEntero) + End If + End If + + 'IMPRIME VALE + If UrlParametros("OP").ToString = "VAL" Then + If UrlParametros("CVEVALE") IsNot Nothing AndAlso UrlParametros("CVEVALE").ToString.ToEntero > 0 Then + GenerarPDFVale(UrlParametros("CVEVALE").ToString.ToEntero) + End If + End If + + 'IMPRIME VALE + If UrlParametros("OP").ToString = "CAN" Then + If UrlParametros("CVEVTA") IsNot Nothing AndAlso UrlParametros("CVEVTA").ToString.ToEntero > 0 Then + ImprimeCancelacion(UrlParametros("CVEVTA").ToString.ToEntero) + End If + End If + + 'IMPRIME AFR + If UrlParametros("OP").ToString = "AFR" Then + If UrlParametros("CVEAFR") IsNot Nothing AndAlso UrlParametros("CVEAFR").ToString.ToEntero > 0 Then + If UrlParametros("TIPO") IsNot Nothing AndAlso UrlParametros("TIPO").ToString <> "" Then + ImprimirPDFAFR(UrlParametros("CVEAFR").ToString.ToEntero, UrlParametros("TIPO").ToString.ToEntero) + End If + End If + End If + + 'IMPRIME AFR AGRUPADO + If UrlParametros("OP").ToString = "AFR2" Then + If UrlParametros("CVER") IsNot Nothing AndAlso UrlParametros("CVER").ToString.ToEntero > 0 Then + If UrlParametros("TIPO") IsNot Nothing AndAlso UrlParametros("TIPO").ToString <> "" Then + ImprimirPDFAFR2(UrlParametros("CVER").ToString.ToEntero, UrlParametros("TIPO").ToString.ToEntero) + End If + End If + End If + + 'IMPRIME POLIZA + If UrlParametros("OP").ToString = "POL" Then + If UrlParametros("CVEPOLIZA") IsNot Nothing AndAlso UrlParametros("CVEPOLIZA").ToString.ToEntero > 0 Then + ImprimirPolizaPDF(UrlParametros("CVEPOLIZA").ToString.ToEntero) + End If + End If + + + 'IMPRIME FACTURA + If UrlParametros("OP").ToString = "VTA" Then + If UrlParametros("CVEVENTA") IsNot Nothing AndAlso UrlParametros("CVEVENTA").ToString.ToEntero > 0 Then + Dim Guardar As Boolean = UrlParametros("GUARDAR") IsNot Nothing AndAlso UrlParametros("GUARDAR").ToString() = "1" + + imprimirFacturaVenta(UrlParametros("CVEVENTA").ToString.ToEntero, If(UrlParametros("PAG") IsNot Nothing AndAlso UrlParametros("PAG").ToString <> "", UrlParametros("PAG").ToString, "0"), GuardarPDF:=Guardar) + End If + End If + + 'IMPRIME GASTO DE CONTRATO + If UrlParametros("OP").ToString = "CONG" Then + If UrlParametros("CVECONTRATO") IsNot Nothing AndAlso UrlParametros("CVECONTRATO").ToString.ToEntero > 0 Then + ImprimeGastoContrato(UrlParametros("CVECONTRATO").ToString.ToEntero, UrlParametros("CVECONTRATOGASTO").ToString.ToEntero) + End If + End If + + 'IMPRIME FORMATO CICOVISA + If UrlParametros("OP").ToString = "CIC" Then + If UrlParametros("CVEVENTA") IsNot Nothing AndAlso UrlParametros("CVEVENTA").ToString.ToEntero > 0 Then + ImprimeFormatoCICOVISA(UrlParametros("CVEVENTA").ToString.ToEntero) + End If + End If + + 'IMPRIME CARTA PORTE + If UrlParametros("OP").ToString = "CARPO" Then + If UrlParametros("CVEMOV") IsNot Nothing AndAlso UrlParametros("CVEMOV").ToString.ToEntero > 0 Then + ImprimeFormatoCartaPorte(UrlParametros("CVEMOV").ToString.ToEntero) + End If + End If + + If UrlParametros("OP").ToString = "CARPOTIMBRE" Then + If UrlParametros("CVETIMBRE") IsNot Nothing AndAlso UrlParametros("CVETIMBRE").ToString.ToEntero > 0 Then + ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVETIMBRE").ToString.ToEntero) + End If + End If + + + + If UrlParametros("OP").ToString = "CORT" Then + If UrlParametros("CVECORTE") IsNot Nothing AndAlso UrlParametros("CVECORTE").ToString.ToEntero > 0 Then + ImprimeCorte(UrlParametros("CVECORTE").ToString.ToEntero, UrlParametros("FORMATO").ToString) + End If + End If + + 'IMPRIME IE + If UrlParametros("OP").ToString = "IE" Then + If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then + ImprimirIE(UrlParametros("CVEIE").ToString.ToEntero, UsuarioActual.CveEmpresa) + End If + End If + + 'Imprime Movimiento de IE + If UrlParametros("OP").ToString = "ImprimeMov" Then + If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then + ImprimeMov(UrlParametros("CVEIE").ToString.ToEntero) + End If + End If + + 'IMPRIME DEPOSITOS CAJA + If UrlParametros("OP").ToString = "DC" Then + If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then + CargaDepositosCaja(UrlParametros("CVEIE").ToString.ToEntero, UrlParametros("CUENTACAJA").ToString, UrlParametros("CUENTADEPO").ToString) + End If + End If + + 'IMPRIME IE2 + If UrlParametros("OP").ToString = "IECHEQUE" Then + If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then + ImprimirIE(UrlParametros("CVEIE").ToString.ToEntero, UsuarioActual.CveEmpresa) + End If + End If + + 'Descargar Archivo + If UrlParametros("OP").ToString = "OI" Then + If UrlParametros("ARCHIVO") IsNot Nothing AndAlso UrlParametros("ARCHIVO").ToString.Length > 0 Then + CrearArchivo(UrlParametros("ARCHIVO").ToString) + End If + End If + + 'Archivo contrato + If UrlParametros("OP").ToString = "CONTRATO" Then + If UrlParametros("ARCHIVO") IsNot Nothing AndAlso UrlParametros("ARCHIVO").ToString.Length > 0 Then + CrearArchivoContratos(UrlParametros("ARCHIVO").ToString) + End If + End If + + 'IMPRIME ORDENES SERVICIO + If UrlParametros("OP").ToString = "OS" Then + If UrlParametros("CVEOS") IsNot Nothing AndAlso UrlParametros("CVEOS").ToString.ToEntero > 0 Then + GenerarPDFOS(UrlParametros("CVEOS").ToString.ToEntero) + End If + End If + + 'IMPRIME + If UrlParametros("OP").ToString = "P" Then + If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then + ImprimirReciboDePagos(UrlParametros("CVEIE").ToString.ToEntero, UrlParametros("CVEVENTA").ToString.ToEntero) + End If + End If + + 'IMPRIME COMPLEMENTO DE PAGO XML + If UrlParametros("OP").ToString = "CompP" Then + + If UrlParametros("CVECOMPLEMENTOPAGO") IsNot Nothing AndAlso UrlParametros("CVECOMPLEMENTOPAGO").ToString <> "" AndAlso UrlParametros("EXT").ToString <> "" Then + + Dim Path As String = String.Format("{0}{2}\Pag\{1}.{2}", UsuarioActual.Empresa.Ruta, UrlParametros("SERIEFOLIO"), UrlParametros("EXT").ToString) + Dim Archivo As New System.IO.FileInfo(Path) + + If UrlParametros("EXT").ToString.ToUpper = "PDF" Then + If UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero > 0 Then + Dim CveIE As Integer = -1 + If UrlParametros("CVEIE") IsNot Nothing Then + CveIE = UrlParametros("CVEIE").ToString.ToEntero + End If + PDFReciboDePagos(-1, CveIE, UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero, False) 'genero el documento de no existir + End If + End If + + Archivo = Nothing + End If + + If UrlParametros("SERIEFOLIO") IsNot Nothing AndAlso UrlParametros("SERIEFOLIO").ToString <> "" AndAlso UrlParametros("EXT").ToString <> "" Then + Dim Path As String = String.Format("{0}{2}\Pag\{1}.{2}", UsuarioActual.Empresa.Ruta, UrlParametros("SERIEFOLIO"), UrlParametros("EXT").ToString) + Dim Archivo As New System.IO.FileInfo(Path) + + If Not Archivo.Exists Then + If UrlParametros("CVEIE").ToString.ToEntero > 0 Then + PDFReciboDePagos(-1, UrlParametros("CVEIE").ToString.ToEntero, -1, True) + End If + End If + + If Archivo.Exists Then + HttpContext.Current.Response.Clear() + HttpContext.Current.Response.ClearContent() + HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf") + HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) + HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + HttpContext.Current.Response.TransmitFile(Path) + 'HttpContext.Current.Response.Flush() + HttpContext.Current.Response.End() + End If + Archivo = Nothing + End If + End If + + 'IMPRIME ENTREGAS POR REALIZAR + If UrlParametros("OP").ToString = "ENTREGAS" Then + If UrlParametros("CVEASIGNACIONENTREGA") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then + ImprimeEntregasPorRealizar(UrlParametros("CVEASIGNACIONENTREGA").ToString.ToLong, UrlParametros("USUARIOENTREGA").ToString) + End If + End If + + 'PDF AJUSTE + If UrlParametros("OP").ToString = "AJUSTE" Then + 'SI YA ESTA GUARDADO + If UrlParametros("CVEGARANTIADETALLE") IsNot Nothing Then + ImprimirPDFAjuste(UrlParametros("CVEGARANTIADETALLE").ToString.ToEntero) + Else + ImprimirPDFAjuste(CvePSAjuste:=UrlParametros("CVEPSAJUSTE").ToString.ToEntero(), CveCliente:=UrlParametros("CVECLIENTE").ToString.ToEntero(), + CveClienteDistribuidor:=UrlParametros("CVECLIENTEDISTRIBUIDOR").ToString.ToEntero(), Consec:=UrlParametros("CONSEC").ToString, + FolioGarantia:=UrlParametros("FOLIOGARANTIA").ToString, FechaAjuste:=UrlParametros("FECHAAJUSTE").ToString.ToDateTime(), FechaReclamacion:=UrlParametros("FECHARECLAMACION").ToString.ToDateTime(), + TipoDefecto:=UrlParametros("TIPODEFECTO").ToString, CveTipoUso:=UrlParametros("CVETIPOUSO").ToString.ToEntero(), CodigoEnsamble:=UrlParametros("CODIGOENSAMBLE").ToString, + CodigoLinea:=UrlParametros("CODIGOLINEA").ToString, CodigoInspeccion:=UrlParametros("CODIGOINSPECCION").ToString, PorcentajeAjuste:=UrlParametros("PORCENTAJEAJUSTE").ToString, + BCIAjuste:=UrlParametros("BCIAJUSTE").ToString, Etiqueta:=UrlParametros("ETIQUETA").ToString, Año:=UrlParametros("AÑO").ToString, Comprobante:=UrlParametros("COMPROBANTE").ToString, + ModeloAuto:=UrlParametros("MODELOAUTO").ToString, MarcaAuto:=UrlParametros("MARCAAUTO").ToString, CodigoTD:=UrlParametros("CODIGOTD").ToString) + End If + End If + + End Sub + + Private Function Parametros(Cadena As String) As Hashtable + Dim P1() As String = Cadena.Split("&"c) + Dim Tmp As String + Dim P2() As String + + Dim URLParametros As New Hashtable + + For Each Tmp In P1 + P2 = Tmp.Replace("%26%", "&").Split("="c) + URLParametros.Add(P2(0).ToString.ToUpper, P2(1)) + Next + Return URLParametros + End Function + +#Region "OP = CORT - IMPRIMIR CORTE" + + Private Sub ImprimeCorte(CveCorte As Integer, Formato As String) + Dim ObjVenta As New ClsVentas + Dim ObjPuntoVenta As New ClsPuntoVenta + Dim DtCortesVentasResumen As DataTable = Nothing + Dim DtCortesVentas As DataTable = Nothing + Dim Fecha = "", Nombre = "" + If ObjVenta.GetCortesDetalleVentasResumen(CveCorte, UsuarioActual.CveEmpresa) Then + DtCortesVentasResumen = ObjVenta.DtResultados + + End If + If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, UsuarioActual.CveEmpresa) Then + DtCortesVentas = ObjPuntoVenta.DtResultados + If DtCortesVentas.Rows.Count > 0 Then + Dim RowInfo As DataRow = DtCortesVentas.FiltroPrimero("CveVenta > 0") + + Fecha = RowInfo("FechaInicial").ToString + Nombre = RowInfo("Nombre").ToString + End If + End If + ObjVenta.Dispose() + ObjPuntoVenta.Dispose() + Dim FechaCorte As String = $" Fecha fin: {Fecha}" + Dim Usuario As String = $" Usuario: {Nombre}" + If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 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) + 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("AgrupoPor", $"{FechaCorte}{Usuario}")) + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + Dim lrds As New List(Of ReportDataSource) + Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtCortesVentasResumen} + lrds.Add(rds) + Dim rds2 As New ReportDataSource With {.Name = "DataSet2", .Value = DtCortesVentas} + lrds.Add(rds2) + ImprimirPDF("Empresas/Grales/Formatos/RepCortes.rdlc", lrds, params, "ReporteCortes", Formato) + End If + + End Sub + +#End Region + +#Region " OP = FACTURA - IMPRIME COMPRA" + Private Sub DescargaComprobante(Parametros As Hashtable) + If Parametros("COMPROBANTE") IsNot Nothing Then + + Dim Path As String = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, Parametros("COMPROBANTE")) + Dim Archivo As New System.IO.FileInfo(Path) + + If Archivo.Exists Then + HttpContext.Current.Response.Clear() + HttpContext.Current.Response.ClearContent() + HttpContext.Current.Response.ContentType = "application/octet-stream" + HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) + HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + HttpContext.Current.Response.TransmitFile(Path) + 'HttpContext.Current.Response.Flush() + HttpContext.Current.Response.End() + End If + Archivo = Nothing + End If + End Sub + Private Sub DescargaFactura(Parametros As Hashtable) + If Parametros("CVEFACTURA") IsNot Nothing AndAlso Parametros("CVEFACTURA").ToString.ToEntero > 0 Then + Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf") + Dim Path As String = String.Format("{0}Compras\{1}\{2}.{3}", UsuarioActual.Empresa.Ruta, Parametros("RFC").ToString, Parametros("CVEFACTURA").ToString, Exten) + Dim Archivo As New System.IO.FileInfo(Path) + + If Archivo.Exists Then + HttpContext.Current.Response.Clear() + HttpContext.Current.Response.ClearContent() + HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf") + HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) + HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + HttpContext.Current.Response.TransmitFile(Path) + 'HttpContext.Current.Response.Flush() + HttpContext.Current.Response.End() + End If + Archivo = Nothing + End If + End Sub +#End Region + +#Region "OP DesXmlVIA- DESCARGAR XML DE VIATICOS" + Private Sub DescargaXMLViaticos(Parametros As Hashtable) + If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then + Dim Exten As String = "Xml" + Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", Parametros("TIPO").ToString, Parametros("SERIEFOLIO").ToString, Exten) + Dim Archivo As New System.IO.FileInfo(Path) + + If Archivo.Exists Then + HttpContext.Current.Response.Clear() + HttpContext.Current.Response.ClearContent() + HttpContext.Current.Response.ContentType = "application/xml" + HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) + HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + HttpContext.Current.Response.TransmitFile(Path) + 'HttpContext.Current.Response.Flush() + HttpContext.Current.Response.End() + End If + Archivo = Nothing + End If + End Sub + +#End Region + +#Region "OP DesXmlNom- DESCARGAR XML DE UTILIDADES" + Private Sub DescargaXMLUtilidades(Parametros As Hashtable) + If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then + Dim Exten As String = "Xml" + Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", "Utilidades", Parametros("SERIEFOLIO").ToString, Exten) + Dim Archivo As New System.IO.FileInfo(Path) + + If Archivo.Exists Then + HttpContext.Current.Response.Clear() + HttpContext.Current.Response.ClearContent() + HttpContext.Current.Response.ContentType = "application/xml" + HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) + HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + HttpContext.Current.Response.TransmitFile(Path) + 'HttpContext.Current.Response.Flush() + HttpContext.Current.Response.End() + End If + Archivo = Nothing + End If + End Sub +#End Region + +#Region "OP = 'CONG' - IMPRIME GASTO DE CONTRATO" + Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer) + + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + Dim Dr As DataRow = Nothing + Dim ObjContratos As New ClsContratos + If Not ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Or Not ObjContratos.DtResultados.Rows.Count > 0 Then + ObjContratos.Dispose() + Exit Sub + End If + + Dim params As New List(Of ReportParameter) + 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("Contrato", $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ")) + params.Add(New ReportParameter("Proveedor", If(ObjContratos.CveProveedor > 0, ObjContratos.RazonSocial.ToString, ObjContratos.NombreComercial.ToString))) + params.Add(New ReportParameter("FechaInicio", ObjContratos.FechaInicial.ToShortDateString)) + params.Add(New ReportParameter("FechaFin", ObjContratos.FechaFinal.ToShortDateString)) + params.Add(New ReportParameter("TipoContrato", ObjContratos.DtResultados.Rows(0)("ContratoTipo").ToString)) + params.Add(New ReportParameter("TotalContrato", ObjContratos.ImporteTotal.FormatoNumero)) + Dim Nombre As String = If($"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ".Length > 20, $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ".Substring(0, 20), $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ") + Dim SumaUtilidad As Double = 0 + Dim SumaGasto As Double = 0 + If ObjContratos.GetReporteContratosAvancesDetalleCP(CveContrato, UsuarioActual.CveEmpresa) Then + If ObjContratos.DtResultados.Rows.Count > 0 Then + SumaUtilidad = ObjContratos.DtResultados.SUM("AvanceUtilidad", "CveClasificacion IS NULL") + End If + End If + Dim dt As DataTable = Nothing + If ObjContratos.GetContratoGastos(CveContrato, UsuarioActual.CveEmpresa) Then + dt = ObjContratos.DtResultados.FiltraParametros($"CveContratoGasto = {CveContratoGasto}") + SumaGasto = ObjContratos.DtResultados.SUM("Importe", "CveContratoGasto IS NULL") + End If + params.Add(New ReportParameter("Utilidad", $"$ {(SumaUtilidad - SumaGasto).ToString.FormatoNumero()}")) + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + ImprimirPDF("Empresas/Grales/Formatos/ContratoGasto.rdlc", dt, params, $"{Nombre}-Gastos", Formato:="PDF") + End Sub +#End Region + + +#Region "OP = 'CIC' - IMPRIME FORMATO CICOVISA" + Private Sub ImprimeFormatoCICOVISA(CveVenta As Integer) + If CveVenta > 0 Then + Dim ObjVentas As New ClsVentas + Dim SerieFolio As String = "" + Dim PedidoContrato As String = "" + Dim EnvioContacto As String = "" + Dim EnvioDireccion As String = "" + Dim Guia As String = "" + If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then + If ObjVentas.DtResultados.Rows.Count > 0 Then + SerieFolio = ObjVentas.DtResultados.Rows(0)("SerieFolio").ToString + PedidoContrato = ObjVentas.DtResultados.Rows(0)("PedidoContrato").ToString + EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString + EnvioDireccion = ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString + Guia = ObjVentas.DtResultados.Rows(0)("Guia").ToString + End If + End If + Dim Dt As DataTable = Nothing + If ObjVentas.GetVentaDetalle(CveVenta) Then + Dt = ObjVentas.DtResultados + End If + ObjVentas.Dispose() + If Dt.Rows.Count > 0 Then + Dim params As New List(Of ReportParameter) + 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("EnvioContacto", EnvioContacto)) + params.Add(New ReportParameter("SerieFolio", SerieFolio)) + params.Add(New ReportParameter("PedidoContrato", PedidoContrato)) + params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion)) + params.Add(New ReportParameter("Guia", Guia)) + ImprimirPDF("Empresas/Grales/Formatos/Cicovisa.rdlc", Dt, params, String.Format("Formato Cicovisa -{0}", Now.ToDateTime.ToShortDateString)) + End If + End If + End Sub + +#End Region + +#Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE TIMBRADO" + Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer) + If CveMovimiento > 0 Then + Dim ObjInv As New ClsInventarios + Dim ObjAcar As New ClsAcarreos + Dim SerieFolio As String = "" + Dim DomicilioSucursal As String = "" + Dim LugarFecha As String = "" + Dim Origen As String = "" + Dim Destino As String = "" + Dim Observaciones As String = "" + Dim Chofer As String = "" + Dim CveChofer As String + Dim Placa As String = "" + Dim Recibio As String = "" + Dim FechaEntrega As String = "" + Dim EspecifUnidad As String = "" + Dim ResponsableCarga As String = "" + Dim ResponsableRecibio As String = "" + Dim Identificacion As String = "" + Dim Domicilio As String = "" + Dim Telefono As String = "" + Dim Ciudad As String = "" + Dim Licencia As String = "" + + Dim SBDireccionO As New StringBuilder() + Dim SBDireccionD As New StringBuilder() + + If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then + If ObjInv.DtResultados.Rows.Count > 0 Then + Dim Dr As DataRow = ObjInv.DtResultados.Rows(0) + If Dr IsNot Nothing Then + SerieFolio = Dr("Folio").ToString + DomicilioSucursal = $"{Dr("CalleOrigen").ToString} {Dr("NoExtOrigen").ToString}, Col. {Dr("ColoniaOrigen").ToString} " + LugarFecha = $"{Dr("MunicipioOrigen").ToString}, {Dr("EstadoOrigen").ToString} {Dr("FechaMovto").ToString.ToDate.ToShortDateString}" + Origen = Dr("AlmacenOrigen").ToString + Destino = Dr("AlmacenDestino").ToString + Observaciones = Dr("Observaciones").ToString + CveChofer = Dr("CveChofer").ToString + If ObjAcar.GetChofer(CveChofer.ToEntero, UsuarioActual.CveEmpresa, -1, -1) Then + Chofer = ObjAcar.DtResultados.FiltroPrimeroValor("Chofer") + End If + Placa = Dr("Traslado_Placa").ToString + Recibio = Dr("Recibio").ToString + FechaEntrega = Dr("FechaEntrega").ToString + EspecifUnidad = Dr("EspecificacionUnidad").ToString + + If Dr("CalleOrigen").ToString.Length > 0 Then + SBDireccionO.AppendFormat("{0}", Dr("CalleOrigen").ToString) + If Dr("NoExtOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", Dr("NoExtOrigen").ToString) + If Dr("ColoniaOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Col: {0}", Dr("ColoniaOrigen").ToString) + If Dr("CPOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", CP: {0}", Dr("CPOrigen").ToString) + If Dr("LocalidadOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Loc: {0}", Dr("LocalidadOrigen").ToString) + If Dr("MunicipioOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Cd: {0}", Dr("MunicipioOrigen").ToString) + If Dr("EstadoOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Edo: {0}", Dr("EstadoOrigen").ToString) + If Dr("PaisOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", País: {0}", Dr("PaisOrigen").ToString) + End If + If Dr("CalleDestino").ToString.Length > 0 Then + SBDireccionD.AppendFormat("{0}", Dr("CalleDestino").ToString) + If Dr("NoExtDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", No.Ext: {0}", Dr("NoExtDestino").ToString) + If Dr("ColoniaDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Col: {0}", Dr("ColoniaDestino").ToString) + If Dr("CPDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", CP: {0}", Dr("CPDestino").ToString) + If Dr("LocalidadDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Loc: {0}", Dr("LocalidadDestino").ToString) + If Dr("MunicipioDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Cd: {0}", Dr("MunicipioDestino").ToString) + If Dr("EstadoDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", Dr("EstadoDestino").ToString) + If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString) + End If + + ResponsableCarga = Dr("ResponsableCarga").ToString + ResponsableRecibio = Dr("ResponsableRecibio").ToString + Identificacion = Dr("Identificacion").ToString + Domicilio = Dr("Domicilio").ToString + Telefono = Dr("Telefono1").ToString + Ciudad = Dr("Ciudad").ToString + Licencia = Dr("Licencia").ToString + End If + End If + End If + ObjAcar.Dispose() + + Dim Dt As DataTable = Nothing + If ObjInv.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then + Dt = ObjInv.DtResultados + End If + ObjInv.Dispose() + If Dt.Rows.Count > 0 Then + Dim params As New List(Of ReportParameter) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + + + 'params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, ImageToBase64(Drawing.Image.FromFile(Imagen.FullName), Drawing.Imaging.ImageFormat.Png), ""))) + + If Imagen.Exists Then + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + + + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + 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. {Telefono}")) + params.Add(New ReportParameter("SerieFolio", SerieFolio)) + params.Add(New ReportParameter("DomicilioSucursal", DomicilioSucursal)) + params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC)) + params.Add(New ReportParameter("LugarFecha", LugarFecha)) + params.Add(New ReportParameter("Origen", Origen)) + params.Add(New ReportParameter("Destino", Destino)) + params.Add(New ReportParameter("Remitente", "")) + params.Add(New ReportParameter("Destinatario", "")) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("Chofer", Chofer)) + params.Add(New ReportParameter("Placa", Placa)) + params.Add(New ReportParameter("Recibio", Recibio)) + params.Add(New ReportParameter("FechaEntrega", FechaEntrega.ToDateTime().ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("EspecifUnidad", EspecifUnidad)) + params.Add(New ReportParameter("DireccionOrigen", SBDireccionO.ToString)) + params.Add(New ReportParameter("DireccionDestino", SBDireccionD.ToString)) + params.Add(New ReportParameter("ResponsableCarga", ResponsableCarga)) + params.Add(New ReportParameter("ResponsableRecibio", ResponsableRecibio)) + params.Add(New ReportParameter("Identificacion", Identificacion)) + params.Add(New ReportParameter("Domicilio", Domicilio)) + params.Add(New ReportParameter("Telefono", Telefono)) + params.Add(New ReportParameter("Ciudad", Ciudad)) + params.Add(New ReportParameter("Licencia", Licencia)) + ImprimirPDF("Empresas/Grales/Formatos/CartaPorte.rdlc", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString)) + End If + End If + End Sub + + Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String + Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0) + If o Is Nothing Then + Return Retorno + Else + Return o.Value + End If + End Function + + Private Sub ImprimeFormatoCartaPorteTimbrado(CveTimbre As Integer) + If CveTimbre > 0 Then + + '01 Autotransporte Federal + '02 Transporte Marítimo + '03 Transporte Aéreo + '04 Transporte Ferroviario + '05 Ducto + Dim HtTransporte As New Hashtable() + HtTransporte.Add("01", "Autotransporte Federal") + HtTransporte.Add("02", "Transporte Marítimo") + HtTransporte.Add("03", "Transporte Aéreo") + HtTransporte.Add("04", "Transporte Ferroviario") + HtTransporte.Add("05", "Ducto") + + 'EMISOR + Dim LugarExpedicion As String = "" + Dim ImgCBB As String = "" + 'COMPROBANTE + Dim SerieFolio As String = "" + Dim Telefono As String = "" + Dim SubTotal As Decimal = 0 + Dim Descuentos As Decimal = 0 + Dim Total As Decimal = 0 + 'DATOS DEL CLIENTE + Dim ClienteRFC As String = "" + Dim ClienteNombre As String = "" + Dim ClienteUsoCFDi As String = "" + + 'TRANSPORTE + Dim MedioTransporte As String = "" + Dim TransporteInternacional As String = "" + Dim PermisoSTCC As String = "" + Dim NumPermiso As String = "" + Dim AseguradoraRespCivil As String = "" + Dim NumPolizaSeguroRespCivil As String = "" + Dim NombreAseguradoraMedioAmbiente As String = "" + Dim NumPolizaSeguroMedioAmbiente As String = "" + Dim NombreAseguradoraCarga As String = "" + Dim NumPolizaSeguroCarga As String = "" + + Dim RemolquePlaca1 As String = "" + Dim RemolquePlaca2 As String = "" + Dim RemolqueSubtimo1 As String = "" + Dim RemolqueSubtimo2 As String = "" + + Dim PlacaVM As String = "" + Dim AnioModeloVM As String = "" + 'TIMBRADO + Dim FolioFiscal As String = "" + Dim NoCertificadoSAT As String = "" + Dim CadenaOriginal As String = "" + Dim NoSerieCertificado As String = "" + Dim FechaCertificacion As DateTime = Nothing + Dim SelloCFDi As String = "" + Dim SelloSAT As String = "" + Dim TipoDocto As String = "" + + Dim ObjInv As New ClsGenerales + + If ObjInv.GetGralTimbre(CveTimbre, "-1", MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1) Then + If ObjInv.DtResultados.Rows.Count > 0 Then + Dim Dr As DataRow = ObjInv.DtResultados.Rows(0) + If Dr IsNot Nothing Then + SerieFolio = Dr("SerieFolio").ToString + Telefono = Dr("FiguraTelefono").ToString + TipoDocto = Dr("TipoDocto").ToString + End If + End If + End If + ObjInv.Dispose() + + Dim DtConceptos As New DataTable() + DtConceptos.Columns.Add(New DataColumn("Cantidad", GetType(Decimal))) + DtConceptos.Columns.Add(New DataColumn("Unidad", GetType(String))) + DtConceptos.Columns.Add(New DataColumn("Descripcion", GetType(String))) + DtConceptos.Columns.Add(New DataColumn("ValorUnitario", GetType(Decimal))) + DtConceptos.Columns.Add(New DataColumn("Importe", GetType(Decimal))) + + Dim DtUbicaciones As New DataTable() + DtUbicaciones.Columns.Add(New DataColumn("Distancia", GetType(String))) + DtUbicaciones.Columns.Add(New DataColumn("TipoUbicacion", GetType(String))) + DtUbicaciones.Columns.Add(New DataColumn("RFC", GetType(String))) + DtUbicaciones.Columns.Add(New DataColumn("Nombre", GetType(String))) + DtUbicaciones.Columns.Add(New DataColumn("FechaHoraSalida", GetType(DateTime))) + DtUbicaciones.Columns.Add(New DataColumn("Direccion", GetType(String))) + + Dim DtMercancias As New DataTable() + DtMercancias.Columns.Add(New DataColumn("Cantidad", GetType(Decimal))) + DtMercancias.Columns.Add(New DataColumn("UnidadMedida", GetType(String))) + DtMercancias.Columns.Add(New DataColumn("Descripcion", GetType(String))) + DtMercancias.Columns.Add(New DataColumn("PesoEnKg", GetType(String))) + + DtMercancias.Columns.Add(New DataColumn("CveMaterialPeligroso", GetType(String))) + DtMercancias.Columns.Add(New DataColumn("Embalaje", GetType(String))) + + Dim DtOperadores As New DataTable() + DtOperadores.Columns.Add(New DataColumn("RFC", GetType(String))) + DtOperadores.Columns.Add(New DataColumn("NumLicencia", GetType(String))) + DtOperadores.Columns.Add(New DataColumn("NombreOperador", GetType(String))) + + Dim XMLDoc As New XmlDocument + Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", TipoDocto, String.Format("{0}", SerieFolio), "xml") + Dim Archivo As New System.IO.FileInfo(Path) + + If Archivo.Exists Then + Try + XMLDoc.Load(Path) + Catch ex As Exception + Try + Dim oReader = New StreamReader(Path, Encoding.GetEncoding("ISO-8859-1")) + XMLDoc.Load(oReader) + oReader.Dispose() + Catch ex2 As Exception + GuardaLog("Error al intentar leer el XML del SAT. Error:" & ex2.ToString()) + End Try + End Try + End If + + If XMLDoc IsNot Nothing AndAlso Archivo.Exists Then + + Dim RutaCBB As String = String.Format("{0}\CBB\{1}.jpg", UsuarioActual.Empresa.Ruta, SerieFolio) + Dim ImagenCBB As New System.IO.FileInfo(RutaCBB) + + Dim nodo As XmlNode = XMLDoc.DocumentElement + + Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix) + Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3" + Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable) + + If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2" + namespaces.AddNamespace(Prefijo, cfdVer) + namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital") + namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal") + namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal") + namespaces.AddNamespace("cartaporte", "http://www.sat.gob.mx/CartaPorte") + namespaces.AddNamespace("cartaporte20", "http://www.sat.gob.mx/CartaPorte20") + + Dim nodeComprobante As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante", Prefijo), namespaces) + If nodeComprobante IsNot Nothing Then + LugarExpedicion = ValorXML(nodeComprobante, "LugarExpedicion") + SubTotal = ValorXML(nodeComprobante, "SubTotal").ToDecimal() + Total = ValorXML(nodeComprobante, "Total").ToDecimal() + End If + + Dim nodeCliente As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Receptor", Prefijo), namespaces) + + If nodeCliente IsNot Nothing Then + ClienteRFC = ValorXML(nodeCliente, "RFC") + ClienteNombre = ValorXML(nodeCliente, "Nombre") + Dim UsoCFDI = ValorXML(nodeCliente, "UsoCFDI") + ClienteUsoCFDi = String.Format("{0} - {1}", UsoCFDI, GlobalDTSATUsosCFDI().FiltroPrimeroValor("Descripcion", String.Format("UsoCFDI = '{0}'", UsoCFDI))) + End If + + Dim nodeConceptos As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Conceptos", Prefijo), namespaces) + + If nodeConceptos IsNot Nothing Then + For Each node As XmlNode In nodeConceptos.ChildNodes + Dim Row As DataRow = DtConceptos.NewRow + + Row("Cantidad") = ValorXML(node, "Cantidad", "") + Row("Unidad") = ValorXML(node, "Unidad", "") + Row("Descripcion") = ValorXML(node, "Descripcion", "") + Row("ValorUnitario") = ValorXML(node, "ValorUnitario", "") + Row("Importe") = ValorXML(node, "Importe", "") + + DtConceptos.Rows.Add(Row) + Next + End If + + + Dim nodeComp As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Complemento", Prefijo), namespaces) + + Dim nodeCartaPorte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:CartaPorte", "cartaporte20"), namespaces) + If nodeCartaPorte IsNot Nothing Then + TransporteInternacional = ValorXML(nodeCartaPorte, "TranspInternac", "") + End If + + Dim nodeAutotransporteFederal As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Autotransporte", "cartaporte20"), namespaces) + If nodeAutotransporteFederal IsNot Nothing Then + PermisoSTCC = ValorXML(nodeAutotransporteFederal, "PermSCT", "") + NumPermiso = ValorXML(nodeAutotransporteFederal, "NumPermisoSCT", "") + End If + + Dim nodeIdentificacionVehicular As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:IdentificacionVehicular", "cartaporte20"), namespaces) + If nodeIdentificacionVehicular IsNot Nothing Then + PlacaVM = ValorXML(nodeIdentificacionVehicular, "PlacaVM", "") + AnioModeloVM = ValorXML(nodeIdentificacionVehicular, "AnioModeloVM", "") + End If + + Dim nodeSeguros As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Seguros", "cartaporte20"), namespaces) + If nodeIdentificacionVehicular IsNot Nothing Then + AseguradoraRespCivil = ValorXML(nodeSeguros, "AseguraRespCivil", "") + NumPolizaSeguroRespCivil = ValorXML(nodeSeguros, "PolizaRespCivil", "") + + 'Por Definir de donde sale + NombreAseguradoraMedioAmbiente = ValorXML(nodeSeguros, "AseguraMedAmbiente", "") + NumPolizaSeguroMedioAmbiente = ValorXML(nodeSeguros, "PolizaMedAmbiente", "") + NombreAseguradoraCarga = ValorXML(nodeSeguros, "AseguraCarga", "") + NumPolizaSeguroCarga = ValorXML(nodeSeguros, "PolizaCarga", "") + End If + + + Dim nodeRemolques As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Remolques", "cartaporte20"), namespaces) + + If nodeRemolques IsNot Nothing Then + If nodeRemolques.ChildNodes.Count = 1 Then + RemolquePlaca1 = ValorXML(nodeRemolques.ChildNodes(0), "Placa", "") + RemolqueSubtimo1 = ValorXML(nodeRemolques.ChildNodes(0), "SubTipoRem", "") + ElseIf nodeRemolques.ChildNodes.Count > 1 Then + RemolquePlaca1 = ValorXML(nodeRemolques.ChildNodes(0), "Placa", "") + RemolqueSubtimo1 = ValorXML(nodeRemolques.ChildNodes(0), "SubTipoRem", "") + RemolquePlaca2 = ValorXML(nodeRemolques.ChildNodes(1), "Placa", "") + RemolqueSubtimo2 = ValorXML(nodeRemolques.ChildNodes(1), "SubTipoRem", "") + End If + End If + + 'Dim nodeFiguraTransporte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:FiguraTransporte", "cartaporte20"), namespaces) + 'If nodeFiguraTransporte IsNot Nothing Then + ' Dim CveTransporte As String = ValorXML(nodeFiguraTransporte, "TipoFigura", "") + ' MedioTransporte = String.Format("{0} - {1}", CveTransporte, HtTransporte(CveTransporte).ToString()) + 'End If + + Dim nodeMercancias As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancia", "cartaporte20"), namespaces) + For Each node As XmlNode In nodeMercancias + Dim Row As DataRow = DtMercancias.NewRow + + Row("Cantidad") = ValorXML(node, "Cantidad", "") + Row("UnidadMedida") = ValorXML(node, "Unidad", "") + Row("Descripcion") = ValorXML(node, "Descripcion", "") + Row("PesoEnKg") = ValorXML(node, "PesoEnKg", "") + + Row("CveMaterialPeligroso") = ValorXML(node, "CveMaterialPeligroso", "") + Row("Embalaje") = ValorXML(node, "Embalaje", "") + + DtMercancias.Rows.Add(Row) + Next + + Dim nodeOperadores As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:TiposFigura", "cartaporte20"), namespaces) + For Each node As XmlNode In nodeOperadores + Dim Row As DataRow = DtOperadores.NewRow + + Row("RFC") = ValorXML(node, "RFCFigura", "") + Row("NumLicencia") = ValorXML(node, "NumLicencia", "") + Row("NombreOperador") = ValorXML(node, "NombreFigura", "") + + DtOperadores.Rows.Add(Row) + Next + + + Dim nodeUbicaciones As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Ubicacion", "cartaporte20"), namespaces) + For Each node As XmlNode In nodeUbicaciones + Dim Row As DataRow = DtUbicaciones.NewRow + + Row("Distancia") = ValorXML(node, "DistanciaRecorrida", "") + Row("TipoUbicacion") = ValorXML(node, "TipoUbicacion", "") + Row("FechaHoraSalida") = ValorXML(node, "FechaHoraSalidaLlegada", "") + Row("RFC") = ValorXML(node, "RFCRemitenteDestinatario", "") + Row("Nombre") = ValorXML(node, "NombreRemitenteDestinatario", "") + + Dim nodeDomicilio = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte20:Domicilio") 'node.SelectSingleNode(String.Format("//{0}:Domicilio", "cartaporte"), namespaces) + If nodeDomicilio IsNot Nothing Then + + Dim Estado As String = "" + Dim Municipio As String = "" + Dim Colonia As String = "" + Dim calle = ValorXML(nodeDomicilio, "Calle", "") + Dim CP = ValorXML(nodeDomicilio, "CodigoPostal", "") + + Dim dr As DataRow = GlobalDTGralColonias(ValorXML(nodeDomicilio, "Estado", ""), ValorXML(nodeDomicilio, "Municipio", ""), ValorXML(nodeDomicilio, "Colonia", "")).FiltroPrimero("") + If dr IsNot Nothing Then + Estado = dr("NombreEstado").ToString + Municipio = dr("NombreMunicipio").ToString + Colonia = dr("NombreAsentamiento").ToString + End If + Row("Direccion") = String.Format("{0} Col.{1},{2},{3}. CP {4}", calle, Colonia, Municipio, Estado, CP) + End If + + + + DtUbicaciones.Rows.Add(Row) + Next + + Dim nodeTFD As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces) + If nodeTFD IsNot Nothing Then + FolioFiscal = ValorXML(nodeTFD, "UUID", "") + NoSerieCertificado = ValorXML(nodeTFD, "NoCertificadoSAT", "") + FechaCertificacion = ValorXML(nodeTFD, "FechaTimbrado", "").ToDateTime + SelloCFDi = ValorXML(nodeTFD, "SelloCFD", "") + SelloSAT = ValorXML(nodeTFD, "SelloSAT", "") + NoCertificadoSAT = ValorXML(nodeTFD, "NoCertificadoSAT", "") + + CadenaOriginal = "||1.0|" + FolioFiscal + "|" + FechaCertificacion.ToString("yyyy-MM-dd") + "T" + FechaCertificacion.ToString("HH:mm:ss") + "|" + SelloCFDi + "|" + NoSerieCertificado + "||" + End If + + If Not ImagenCBB.Exists Then + Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar() + CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ClienteRFC, Total, FolioFiscal, RutaCBB) + End If + + + ImagenCBB = New System.IO.FileInfo(RutaCBB) + + If ImagenCBB.Exists Then + ImgCBB = String.Format("file://{0}", ImagenCBB.FullName) + Else + ImgCBB = "" + End If + + End If + + If DtConceptos.Rows.Count > 0 Then + Dim params As New List(Of ReportParameter) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + If Imagen.Exists Then + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + 'EMPRESA + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("RegimenFiscal", UsuarioActual.Empresa.Regimen)) + 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. {Telefono}")) + params.Add(New ReportParameter("SerieFolio", SerieFolio)) + params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC)) + params.Add(New ReportParameter("DomicilioExpedicion", LugarExpedicion)) + 'CLIENTE + params.Add(New ReportParameter("ClienteNombre", ClienteNombre)) + params.Add(New ReportParameter("ClienteRFC", ClienteRFC)) + params.Add(New ReportParameter("UsoCFDi", ClienteUsoCFDi)) + 'TRANSPORTE + params.Add(New ReportParameter("MedioTransporte", MedioTransporte)) + params.Add(New ReportParameter("TransporteInternacional", TransporteInternacional)) + params.Add(New ReportParameter("PermisoSTCC", PermisoSTCC)) + params.Add(New ReportParameter("NumPermiso", NumPermiso)) + + params.Add(New ReportParameter("Aseguradora", AseguradoraRespCivil)) + params.Add(New ReportParameter("NumPoliza", NumPolizaSeguroRespCivil)) + + params.Add(New ReportParameter("NombreAseguradoraMedioAmbiente", NombreAseguradoraMedioAmbiente)) + params.Add(New ReportParameter("NumPolizaSeguroMedioAmbiente", NumPolizaSeguroMedioAmbiente)) + + params.Add(New ReportParameter("NombreAseguradoraCarga", NombreAseguradoraCarga)) + params.Add(New ReportParameter("NumPolizaSeguroCarga", NumPolizaSeguroCarga)) + + params.Add(New ReportParameter("PlacaVM", PlacaVM)) + params.Add(New ReportParameter("AnioVM", AnioModeloVM)) + 'TIMBRADO + params.Add(New ReportParameter("FolioFiscal", FolioFiscal)) + params.Add(New ReportParameter("QR", ImgCBB)) + params.Add(New ReportParameter("SelloCFDI", SelloCFDi)) + params.Add(New ReportParameter("CertificadoContribuyente", NoCertificadoSAT)) + params.Add(New ReportParameter("CadenaOriginal", CadenaOriginal)) + params.Add(New ReportParameter("SerieCertificadoSAT", NoSerieCertificado)) + params.Add(New ReportParameter("FechaCertificacion", FechaCertificacion.ToString("dd/MM/yyyy HH:mm:ss"))) + params.Add(New ReportParameter("SelloSAT", SelloSAT)) + 'TOTALES + params.Add(New ReportParameter("SubTotal", SubTotal.ToString())) + params.Add(New ReportParameter("Descuentos", Descuentos.ToString())) + params.Add(New ReportParameter("Total", Total.ToString())) + + params.Add(New ReportParameter("RemolquePlaca1", RemolquePlaca1)) + params.Add(New ReportParameter("RemolqueSubtimo1", RemolqueSubtimo1)) + params.Add(New ReportParameter("RemolquePlaca2", RemolquePlaca2)) + params.Add(New ReportParameter("RemolqueSubtimo2", RemolqueSubtimo2)) + + + ' [@CertificadoContribuyente] + '[@CadenaOriginal] + + Dim lrds As New List(Of ReportDataSource) + + Dim rds As New ReportDataSource + rds.Name = "DataSet1" + rds.Value = DtConceptos + lrds.Add(rds) + + Dim rds2 As New ReportDataSource + rds2.Name = "DataSet2" + rds2.Value = DtUbicaciones + lrds.Add(rds2) + + Dim rds3 As New ReportDataSource + rds3.Name = "DataSet3" + rds3.Value = DtMercancias + lrds.Add(rds3) + + Dim rds4 As New ReportDataSource + rds4.Name = "DataSet4" + rds4.Value = DtOperadores + lrds.Add(rds4) + + ImprimirPDF("Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc", lrds, params, SerieFolio) + End If + End If + End Sub + +#End Region + +#Region "OP = 'DesXmlTra' - IMPRIME XML TRASLADO" + + Private Sub DescargaXMLTraslado(Parametros As Hashtable) + If Parametros("TIPODOCTO") IsNot Nothing AndAlso Parametros("TIPODOCTO").ToString <> "" Then + Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf") + Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, Parametros("EXT").ToString, Parametros("TIPODOCTO").ToString, Parametros("FOLIO").ToString, Exten) + Dim Archivo As New System.IO.FileInfo(Path) + + If Archivo.Exists Then + HttpContext.Current.Response.Clear() + HttpContext.Current.Response.ClearContent() + HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf") + HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) + HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + HttpContext.Current.Response.TransmitFile(Path) + 'HttpContext.Current.Response.Flush() + HttpContext.Current.Response.End() + End If + Archivo = Nothing + End If + End Sub + +#End Region + +#Region "OP = 'DesPdfTra' - IMPRIME PDF TRASLADO" + + Private Sub DescargaPDFTraslado(Parametros As Hashtable) + If Parametros("TIPODOCTO") IsNot Nothing AndAlso Parametros("TIPODOCTO").ToString <> "" Then + Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf") + Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, Parametros("EXT").ToString, Parametros("TIPODOCTO").ToString, Parametros("FOLIO").ToString, Exten) + Dim Archivo As New System.IO.FileInfo(Path) + Dim cvetimbre As Integer = IfNull(Parametros("CVETIMBRE"), "0").ToString.ToEntero + + If Archivo.Exists Then + DescargarArchivoPDFTraslado(Archivo, Path) + Else + If Exten = "pdf" Then + Dim ObjTimbres As New Timbres(Parametros("TIPODOCTO").ToString, cvetimbre, UsuarioActual) + + GeneraPDFFactura(ObjTimbres.ObjFactura) + Archivo = New System.IO.FileInfo(Path) + If Archivo.Exists Then + DescargarArchivoPDFTraslado(Archivo, Path) + End If + End If + End If + Archivo = Nothing + End If + End Sub + Private Sub DescargarArchivoPDFTraslado(Archivo As System.IO.FileInfo, path As String) + HttpContext.Current.Response.Clear() + HttpContext.Current.Response.ClearContent() + HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "text/xml", "application/pdf") + HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) + HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + HttpContext.Current.Response.TransmitFile(path) + 'HttpContext.Current.Response.Flush() + HttpContext.Current.Response.End() + End Sub + + Private Sub GeneraPDFFactura(ObjFactura As Modelos.Factura) + Try + ' Dim objFactura = CreaObjetosTraslado(CveMovimiento) + If ObjFactura IsNot Nothing Then + PdfFactura(ObjFactura) + ObjFactura.Dispose() + End If + Catch ex As Exception + OnError("Ocurrió un error al generar el PDF", ex) + End Try + End Sub + + Private Function CreaObjetosTraslado(CveMovimiento As Integer) As Modelos.Factura + Dim Folio As Integer = -1 + Dim CveAlmacen As Integer = 0 + Dim DtDetalle As DataTable = Nothing + + Using ObjMovimientos As New ClsInventarios + If ObjMovimientos.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjMovimientos.DtResultados.Rows.Count = 1 Then + Folio = ObjMovimientos.Folio + CveAlmacen = ObjMovimientos.CveAlmacen + End If + + If ObjMovimientos.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then + DtDetalle = ObjMovimientos.DtResultados.Copy + End If + End Using + + If Folio > 0 AndAlso DtDetalle IsNot Nothing AndAlso DtDetalle.Rows.Count > 0 Then + Dim ObjFactura = New Modelos.Factura + ObjFactura.Version = "3.3" + ObjFactura.CveUsuario = UsuarioActual.CveUsuario + ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa + ObjFactura.TipoCambio = 0 + ObjFactura.ConvertirPesos = False + ObjFactura.TipoCambio = 0 + ObjFactura.CveMoneda = 1 + ObjFactura.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {ObjFactura.CveMoneda} ") + ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", "CveMoneda = 1") + ObjFactura.MonedaAbreviatura = GlobalDTMonedas.FiltroPrimeroValor("Abreviatura", $"CveMoneda = {ObjFactura.CveMoneda} ") + ObjFactura.TipoDocto = "Tra" + ObjFactura.RefDocto = "" + ObjFactura.Folio = Folio + ObjFactura.Serie = "Tra" + ObjFactura.CveMesa = -1 + ObjFactura.Fecha = Now + ObjFactura.CvePrePoliza = -1 + ObjFactura.FechaPago = Now + ObjFactura.MotivoDescuento = "" + ObjFactura.Observaciones = "" + ObjFactura.FechaEjecucion = Now + ObjFactura.UsuarioCreo = UsuarioActual.Usuario + ObjFactura.CveCondicionEntrega = -1 + ObjFactura.CondicionEntrega = "" + ObjFactura.NumeroCuenta = "" + ObjFactura.CondicionesPago = 0 + ObjFactura.FormaPago = 0 + ObjFactura.PedidoContrato = "" + ObjFactura.OrdenCompra = "" + ObjFactura.NumeroContrato = "" + ObjFactura.NumeroDescripcionContrato = "" + ObjFactura.DescripcionContrato = "" + ObjFactura.CveCorte = -1 + ObjFactura.TipoDocumento = "Traspaso" + ObjFactura.Alfa1 = "" + ObjFactura.Alfa2 = "" + ObjFactura.Alfa3 = "" + ObjFactura.Descuento = 0 + ObjFactura.Amortizacion = 0 + ObjFactura.CveContrato = 0 + ObjFactura.CveVendedor = 0 + ObjFactura.FechaVencimiento = Now + ObjFactura.TipoEstatus = 0 + ObjFactura.Det_OrdenCompra = "" + ObjFactura.Inv_CveEstatusEntrega = 0 + ObjFactura.FormaPago33 = "" + ObjFactura.MetodoPago33 = "" + ObjFactura.UsoCFDI = "" + ObjFactura.CveClienteSucursal = 0 + Dim CveSubProyecto As Integer = -1 + If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {CveAlmacen}").Rows.Count > 0 Then + CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {CveAlmacen}").Rows(0)("CveSubProyecto").ToString.ToEntero + End If + ObjFactura.CveSubProyecto = CveSubProyecto + ObjFactura.CveSubProyectoCobranza = CveSubProyecto + ObjFactura.CveSubProyectoEjecucion = CveSubProyecto + + ObjFactura.SubTotal = 0 + ObjFactura.Descuento = 0 + ObjFactura.Amortizacion = 0 + ObjFactura.IVA = 0 + ObjFactura.RetIVA = 0 + ObjFactura.RetISR = 0 + ObjFactura.IEPS = 0 + ObjFactura.Total = 0 + ObjFactura.RFCReceptor = "XAXX010101000" + + + + DtDetalle.Columns.Add("TotalImporte", Type.GetType("System.Double")) + DtDetalle.Columns.Add("Descuento", Type.GetType("System.Double")) + DtDetalle.Columns.Add("UM") + DtDetalle.Columns.Add("SATClaveUM") + DtDetalle.Columns.Add("SATClaveProdServ") + DtDetalle.Columns.Add("Noidentificacion") + DtDetalle.Columns.Add("CuentaPredial") + DtDetalle.Columns.Add("Obs") + DtDetalle.Columns.Add("ImporteIVA", Type.GetType("System.Double")) + DtDetalle.Columns.Add("PorcentajeIVA", Type.GetType("System.Double")) + + + For Each Row As DataRow In DtDetalle.Rows + Row("TotalImporte") = Row("Total") + Row("Descuento") = 0 + Row("UM") = Row("UnidadMedida") + Row("SATClaveUM") = Row("SATClaveUnidadMedida") + Row("SATClaveProdServ") = Row("SATClavePS") + Row("Noidentificacion") = Row("Codigo") + Row("CuentaPredial") = "" + Row("Obs") = Row("Observaciones") + Row("ImporteIVA") = 0 + Row("PorcentajeIVA") = 0 + Next + + 'DETALLES + ObjFactura.DtDetalle = DtDetalle + + 'SUBPROYECTO + ObjFactura.SetSubProyectoMatriz(Me) + ObjFactura.SetSubProyecto(Me) + + ObjFactura.Inv_CveMovimiento = CveMovimiento + + ObjFactura.Timbre = PreParaTimbreTraslado(ObjFactura) + Return ObjFactura + End If + + Return Nothing + + End Function + Private Function PreParaTimbreTraslado(Obj As Modelos.Factura) As CFDITimbre + Dim Timbre As New CFDITimbre + Timbre.Comprobante.TipoComprobante = "T" + Timbre.Comprobante.Folio = Obj.Folio.ToString + Timbre.Comprobante.Serie = Obj.Serie + Timbre.Comprobante.Fecha = Obj.Fecha + Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 + Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 + Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT + Timbre.Comprobante.SubTotal = Obj.SubTotal + Timbre.Comprobante.Descuentos = Obj.Descuento + Timbre.Comprobante.Moneda = Obj.MonedaSAT + Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString) + Timbre.Comprobante.Total = Obj.Total + + Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP + Timbre.Comprobante.Confirmacion = "" + + Timbre.Receptor.RFC = "XAXX010101000" + Timbre.Receptor.Nombre = UsuarioActual.Empresa.Empresa + Timbre.Receptor.UsoCFDI = "P01" + + Dim totSubTotal As Decimal = Obj.SubTotal + Dim totIVA As Decimal = Obj.IVA + Dim totRetIVA As Decimal = Obj.RetIVA + Dim totRetISR As Decimal = Obj.RetISR + Dim i As Integer = 1 + + 'DETALLES + Dim tPS As String = "" + + For Each drr As DataRow In Obj.DtDetalle.Rows + If drr("PS").ToString.Length = 1 Then + tPS = drr("Obs").ToString + Else + If drr("PS").ToString.Length = 0 Then + tPS = "" + Else + tPS = String.Format("{0} {1}", drr("PS"), drr("Obs")) + End If + End If + + 'CONDICIONANTE, ESPECIAL + If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" 'LES COMENTAN QUE NO DEBE IR LA ETIQUETA DE LA UNIDAD EN EL PRODUCTO + + Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal, + .Descripcion = tPS, + .ValorUnitario = drr("PU").ToString.ToDecimal, + .Importe = drr("TotalImporte").ToString.ToDecimal, + .Descuento = drr("Descuento").ToString.ToDecimal, + .Unidad = drr("UM").ToString, + .ClaveUnidad = drr("SATClaveUM").ToString, + .ClaveProdServ = drr("SATClaveProdServ").ToString, + .Noidentificacion = drr("Noidentificacion").ToString, + .CuentaPredial = drr("CuentaPredial").ToString} + 'VERIFICA SUMA SUBTOTALES + If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'PROCESO DE AJUSTA DE DECIMALES + concepto.Importe = totSubTotal + End If + totSubTotal = totSubTotal - concepto.Importe + + 'SIEMPRE ESTAMOS AGREGANDO EL IVA + 'concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal}) + + Timbre.Conceptos.Add(concepto) + i += 1 + Next + Return Timbre + End Function + +#End Region + +#Region " OP = 'Vta,Fact' - IMPRIME PDF VENTAS" + Private Sub DescargaFacturaVenta(Parametros As Hashtable) + If Parametros("CVEVENTA") IsNot Nothing AndAlso Parametros("CVEVENTA").ToString.ToEntero > 0 Then + Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf") + Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, Parametros("EXT").ToString, Parametros("TIPODOCTO").ToString, Parametros("SERIEFOLIO").ToString, Exten) + Dim Archivo As New System.IO.FileInfo(Path) + + If Archivo.Exists Then + HttpContext.Current.Response.Clear() + HttpContext.Current.Response.ClearContent() + HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name).ToLower = "xml", "application/xml", "application/pdf") + HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) + HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + HttpContext.Current.Response.TransmitFile(Path) + 'HttpContext.Current.Response.Flush() + HttpContext.Current.Response.End() + End If + Archivo = Nothing + End If + End Sub + Public Sub imprimirFacturaVenta(CveVenta As Integer, AplicaPagare As String, Optional GuardarPDF As Boolean = False) + Dim ObjVentas As New ClsVentas + Dim Vta As Modelos.Factura = Nothing + + Dim TmpDTImpuestos = New DataTable + TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String)) + TmpDTImpuestos.Columns.Add("Importe", GetType(Double)) + TmpDTImpuestos.Columns.Add("Orden", GetType(Integer)) + + Dim TmpDTImpuestosIVAIEPS = New DataTable + TmpDTImpuestosIVAIEPS.Columns.Add("Impuesto", GetType(String)) + TmpDTImpuestosIVAIEPS.Columns.Add("tasa", GetType(String)) + TmpDTImpuestosIVAIEPS.Columns.Add("Importe", GetType(Double)) + TmpDTImpuestosIVAIEPS.Columns.Add("Orden", GetType(Integer)) + + If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then + Dim dtVentas As DataTable = ObjVentas.DtResultados + + ' se rellenan los campos de la factura + Vta = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.Factura) + + Vta.MonedaAbreviatura = dtVentas(0)("Abreviatura").ToString + 'se rellena la sucursal + 'Vta.Subproyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SucursalModel) + Dim CveSubProyecto As Integer = dtVentas(0)("CveSubProyecto").ToString().ToEntero() + + Dim DtSubProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=dtVentas(0)("CveEmpresa").ToString().ToEntero()) + + Vta.SubProyecto = DtSubProyecto.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel) + 'Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel) + Vta.Cliente = New Modelos.ClienteModel + Vta.Cliente.Nombre = dtVentas(0)("ClienteNombre").ToString + Vta.Cliente.Telefono = dtVentas(0)("Telefono").ToString + Vta.Cliente.Direccion = dtVentas(0)("ClienteDireccion").ToString + Vta.Cliente.CP = dtVentas(0)("CPCliente").ToString + Vta.Cliente.Ciudad = dtVentas(0)("ClienteCiudad").ToString + Vta.Cliente.Localidad = dtVentas(0)("ClienteLocalidad").ToString + Vta.Cliente.Estado = dtVentas(0)("ClienteEstado").ToString + Vta.Cliente.Pais = dtVentas(0)("ClientePais").ToString + Vta.Cliente.RFC = dtVentas(0)("ClienteRFC").ToString + Vta.Cliente.Colonia = dtVentas(0)("ColoniaCliente").ToString + Vta.AtencionA = dtVentas(0)("AtencionA").ToString + Vta.Cliente.NoExt = dtVentas(0)("ClienteNoExt").ToString + Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString + Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString + Vta.Cliente.Mail = dtVentas(0)("Mail").ToString + Vta.Cliente.MailCotizacion = dtVentas(0)("SucClienteCorreo").ToString + Vta.RefDocto = dtVentas(0)("Ref").ToString + Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero + Vta.NumeroCuenta = dtVentas(0)("NumCtaPago").ToString + Vta.Version = dtVentas(0)("Version").ToString + + Vta.NumeroContrato = dtVentas(0)("NumeroContrato").ToString + Vta.DescripcionContrato = dtVentas(0)("DescripcionContrato").ToString + Vta.NumeroDescripcionContrato = If($"{dtVentas(0)("NumeroContrato").ToString} - {dtVentas(0)("NumeroLicitacion").ToString}" = " - ", "", $"{dtVentas(0)("NumeroContrato").ToString} {If(dtVentas(0)("NumeroLicitacion").ToString = "", "", $" - Licitación: {dtVentas(0)("NumeroLicitacion").ToString}")}") + + Vta.PedidoContrato = If(dtVentas(0)("PedidoContrato").ToString = "", Vta.NumeroDescripcionContrato, $"{dtVentas(0)("PedidoContrato").ToString} {If(Vta.NumeroDescripcionContrato = "", "", $" / {Vta.NumeroDescripcionContrato}") }") + Vta.Kilometraje = If(dtVentas(0)("Kilometraje").ToString = "", -1, dtVentas(0)("Kilometraje").ToString.ToDecimal) + 'Vta.PedidoContrato = dtVentas(0)("PedidoContrato").ToString + + Vta.ClienteSucursal = New Modelos.SucursalModel + Vta.ClienteSucursal.Direccion = dtVentas(0)("SucClienteDireccion").ToString + Vta.ClienteSucursal.NoExt = dtVentas(0)("SucClienteNoExt").ToString + Vta.ClienteSucursal.NoInt = dtVentas(0)("SucClienteNoInt").ToString + Vta.ClienteSucursal.Colonia = dtVentas(0)("SucClienteColonia").ToString + Vta.ClienteSucursal.CP = dtVentas(0)("SucClienteCP").ToString + Vta.ClienteSucursal.Municipio = dtVentas(0)("SucClienteCiudad").ToString + Vta.ClienteSucursal.Estado = dtVentas(0)("SucClienteEstado").ToString + Vta.ClienteSucursal.Pais = dtVentas(0)("SucClientePais").ToString + Vta.ClienteSucursal.Localidad = dtVentas(0)("SucClienteLocalidad").ToString + Vta.ClienteSucursal.CorreoSucursal = dtVentas(0)("SucClienteCorreo").ToString + Vta.ClienteSucursal.TelefonoSucursal = dtVentas(0)("SucClienteTelefono").ToString + Vta.ClienteSucursal.Sucursal = dtVentas(0)("SucursalCliente").ToString + Vta.ClienteSucursal.ImprimeNombreSucursal = dtVentas(0)("ImprimeNombreSucursal").ToString + + Vta.EnviarA = New Modelos.EnviarAModel + Vta.EnviarA.CveDireccionEnvio = dtVentas(0)("CveDireccionEnvio").ToString.ToEntero + Vta.EnviarA.EnvioDireccion = dtVentas(0)("EnvioDireccion").ToString + Vta.EnviarA.EnvioColonia = dtVentas(0)("EnvioColonia").ToString + Vta.EnviarA.EnvioCiudad = dtVentas(0)("EnvioCiudad").ToString + Vta.EnviarA.EnvioEstado = dtVentas(0)("EnvioEstado").ToString + Vta.EnviarA.EnvioCP = dtVentas(0)("EnvioCP").ToString + Vta.EnviarA.EnvioTel = dtVentas(0)("EnvioTel").ToString + + Vta.EnviarA.EnvioNoExt = dtVentas(0)("EnvioNoExt").ToString + Vta.EnviarA.EnvioNoInt = dtVentas(0)("EnvioNoInt").ToString + Vta.EnviarA.EnvioContacto = dtVentas(0)("EnvioContacto").ToString + Vta.EnviarA.EnvioDepartamento = dtVentas(0)("EnvioDepartamento").ToString + + 'Vta.EnviarA.EnvioPedidoContrato = dtVentas(0)("EnvioPedidoContrato").ToString + + 'INE COMPLEMENTO + If dtVentas(0)("TipoComite").ToString <> "" Then + Dim INE As New Modelos.ComplementoINE + INE.INETipoComite = dtVentas(0)("TipoComite").ToString + INE.INETipoProceso = dtVentas(0)("TipoProceso").ToString + INE.INEIdContabilidad = dtVentas(0)("IdContabilidad").ToString.ToEntero + Vta.ComplementoINE = INE + End If + + + Dim DR As DataRow = TmpDTImpuestos.NewRow() + If dtVentas(0)("SubTotal").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString.ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() + If dtVentas(0)("Descuento").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString.ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() + If dtVentas(0)("Amortizacion").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString.ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() + If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() + If dtVentas(0)("IVA").ToString.ToDouble >= 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR) + + 'solo para eclipse, que muesre un subtotal debajo de IVA + If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() + If dtVentas(0)("RetIVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString.ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() + If dtVentas(0)("RetISR").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString.ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() + + If dtVentas(0)("IEPS").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "IEPS" : DR("Importe") = dtVentas(0)("IEPS").ToString.ToDouble : DR("Orden") = 80 : TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() + + If dtVentas(0)("Total").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString.ToDouble : DR("Orden") = 100 : TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() + + If ObjVentas.GetVentaDetalle(CveVenta) Then 'Obtenemos el Detalle de la Oorden de Compra + Vta.DtDetalle = ObjVentas.DtResultados + End If + + If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then + + Dim dtImpuesto As DataTable = ObjVentas.DtResultados + If dtImpuesto.Rows.Count > 0 Then + For Each Row As DataRow In dtImpuesto.Rows + Dim Orden = 80 + If Row("Importe").ToString.ToDouble <> 0 Then + DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString + DR("Importe") = Row("Importe").ToString.ToDouble + DR("Orden") = Orden + TmpDTImpuestos.Rows.Add(DR) + DR = TmpDTImpuestos.NewRow() + Orden = Orden + 1 + End If + Next + End If + Vta.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC") + + End If + + 'TmpDT DESGLOSE DE IMPUESTOS 3.3 + For Each dr1 As DataRow In Vta.DtDetalle.Rows + Dim DrIVA As DataRow = Nothing + Dim DrIEPS As DataRow = Nothing + + Try + DrIVA = TmpDTImpuestosIVAIEPS.Select("Impuesto = 'IVA'")(0) + Catch ex As Exception + DrIVA = Nothing + End Try + + If DrIVA IsNot Nothing Then + DrIVA("Importe") = DrIVA("Importe").ToString.ToDouble + dr1("ImporteIVA").ToString.ToDouble + TmpDTImpuestosIVAIEPS.AcceptChanges() + Else + Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow() + If dr1("PorcentajeIVA").ToString.ToDouble > 0 Then + DR2("Impuesto") = "IVA" : DR2("tasa") = String.Format("{0} %", dr1("PorcentajeIVA").ToString.ToDouble() * 100) : DR2("Importe") = dr1("ImporteIVA").ToString.ToDouble : DR2("Orden") = "1" + TmpDTImpuestosIVAIEPS.Rows.Add(DR2) + TmpDTImpuestosIVAIEPS.AcceptChanges() + End If + End If + + Try + DrIEPS = TmpDTImpuestosIVAIEPS.Select($"Impuesto = 'IEPS' AND tasa = '{dr1("PorcentajeIEPS").ToString.ToDouble * 100} %'")(0) + Catch ex As Exception + DrIEPS = Nothing + End Try + + If DrIEPS IsNot Nothing Then + DrIEPS("Importe") = DrIEPS("Importe").ToString.ToDouble + dr1("ImporteIEPS").ToString.ToDouble + TmpDTImpuestosIVAIEPS.AcceptChanges() + Else + Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow() + If dr1("PorcentajeIEPS").ToString.ToDouble > 0 Then + DR2("Impuesto") = "IEPS" : DR2("tasa") = String.Format("{0} {1}", dr1("PorcentajeIEPS").ToString.ToDouble * 100, "%") : DR2("Importe") = dr1("ImporteIEPS").ToString.ToDouble : DR2("Orden") = If(dr1("PorcentajeIEPS").ToString = "0.03", "2", If(dr1("PorcentajeIEPS").ToString = "0.06", "3", If(dr1("PorcentajeIEPS").ToString = "0.07", "4", If(dr1("PorcentajeIEPS").ToString = "0.09", "5", "")))) + TmpDTImpuestosIVAIEPS.Rows.Add(DR2) + TmpDTImpuestosIVAIEPS.AcceptChanges() + End If + End If + + Next + + Vta.DtDesgloseImpuestos = TmpDTImpuestosIVAIEPS.FiltraParametros("", Orderby:="Orden ASC") + + If ObjVentas.GetVentasFirmas(CveVenta) Then + Vta.DtFirmas = ObjVentas.DtResultados + End If + + + 'CFDI RELACIONADO + If dtVentas(0)("CveTipoRelacion").ToString.ToEntero > 0 Then + Vta.Timbre.Comprobante.TipoComprobante = If(Vta.TipoDocto.Contiene("Ing", "Ant"), "I", If(Vta.TipoDocto.Contiene("Egs", "Dev"), "E", "")) + If Vta.Timbre.Comprobante.TipoComprobante = "E" Then + If Vta.TipoDocto.Contiene("Egs") Then + Vta.Timbre.CFDIRelacionados.TipoRelacion = "01" + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso" + End If + If Vta.TipoDocto.Contiene("Dev") Then + Vta.Timbre.CFDIRelacionados.TipoRelacion = "03" + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" + End If + Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString) + End If + ' cuando es refacturacoin es cfdirelacionado, con relacion 04 + If Vta.Timbre.Comprobante.TipoComprobante = "I" Then 'AndAlso (dtVentas(0)("Total").ToString.ToDouble = dtVentas(0)("TotalPadre").ToString.ToDouble) Then + Vta.Timbre.CFDIRelacionados.TipoRelacion = "04" + Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString) + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Refacturación de Ingreso" + End If + + If UsuarioActual.Empresa.Funcionalidad(592) = "1" Then + + Dim RowTipoRelacion As DataRow = GlobalDTVtaTiposRelacion().FiltroPrimero($"CveTipoRelacion = {dtVentas(0)("CveTipoRelacion").ToString.ToEntero}") + + Vta.Timbre.CFDIRelacionados.TipoRelacion = RowTipoRelacion("SATClaveTipoRelacion").ToString() + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = RowTipoRelacion("SATTipoRelacion").ToString() + + If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + End If + + End If + + End If + + 'If UsuarioActual.CveEmpresa.Contiene(72, 80, 119) Then + If Vta.Timbre.Comprobante.TipoComprobante = "I" Then 'AndAlso (dtVentas(0)("Total").ToString.ToDouble = dtVentas(0)("TotalPadre").ToString.ToDouble) Then + If ObjVentas.GetVentaRefacturacion(dtVentas(0)("CveVentaPadre").ToString.ToEntero) Then + If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then + ObjVentas.DtResultados.Columns.Add("Importe", GetType(Decimal)) + ObjVentas.DtResultados.Rows(0)("Importe") = ObjVentas.DtResultados.Rows(0)("Total") + Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + Vta.DtNCVinculadas = ObjVentas.DtResultados + Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then + If Vta.TipoDocto.Contiene("Dev") Then + Vta.Timbre.CFDIRelacionados.TipoRelacion = "03" + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" + End If + End If + End If + End If + End If + Else + 'If dtVentas(0)("TipoDocto").ToString.Contiene("Ing", "Ant", "Rem") Then + ' 'carga as notas de credito vinculadas + ' If ObjVentas.GetVentasAntNC(CveVenta, -1) Then + ' Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + ' End If + 'End If + + If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then + + If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + Vta.DtNCVinculadas = ObjVentas.DtResultados + Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then + If Vta.TipoDocto.Contiene("Dev") Then + Vta.Timbre.CFDIRelacionados.TipoRelacion = "03" + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" + End If + End If + End If + End If + End If + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso (Vta.DtDocumentosRelacionados Is Nothing OrElse Vta.DtDocumentosRelacionados.Rows.Count = 0) Then + If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + Vta.DtNCVinculadas = ObjVentas.DtResultados + Vta.DtDocumentosRelacionados = ObjVentas.DtResultados '.FiltraParametros("FolioFiscal IS NOT NULL") + If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then + If Vta.TipoDocto.Contiene("Ing") Then + Vta.Timbre.CFDIRelacionados.TipoRelacion = "01" + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso" + End If + + If Vta.TipoDocto.Contiene("Egs") Then + Vta.Timbre.CFDIRelacionados.TipoRelacion = "01" + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso" + End If + + If Vta.TipoDocto.Contiene("Dev") Then + Vta.Timbre.CFDIRelacionados.TipoRelacion = "03" + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso" + End If + End If + End If + End If + + 'SI ES TIPO RELACION 07- APLICACION DE ANTICIPOS + If dtVentas(0)("CveTipoRelacion").ToString.ToEntero = 7 Then + Dim RowTipoRelacion As DataRow = GlobalDTVtaTiposRelacion().FiltroPrimero($"CveTipoRelacion = {dtVentas(0)("CveTipoRelacion").ToString.ToEntero}") + + Vta.Timbre.CFDIRelacionados.TipoRelacion = RowTipoRelacion("SATClaveTipoRelacion").ToString() + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = RowTipoRelacion("SATTipoRelacion").ToString() + + If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + End If + End If + + 'End If + + 'If Vta.TipoDocto.Contiene("Egs", "Dev", "Ant") Then + ' 'If ObjVentas.GetVentasAntNC(-1, CveVenta) Then + ' ' Vta.DtNCVinculadas = ObjVentas.DtResultados + ' 'End If + ' If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + ' Vta.DtNCVinculadas = ObjVentas.DtResultados + ' End If + 'End If + + End If + ObjVentas.Dispose() + + Dim Guardar As Boolean = If(GuardarPDF, True, If(AplicaPagare = "1", False, True)) + + If Not IsNothing(Vta) Then + '04/05/2018 - Se agrega seccion pruebas para generar factura venta .mrt para PyME + If UsuarioActual.Empresa.CvePlataforma = 2 Then + GeneraPDFVtaPyMe(Vta, "PDF") + Else + ImprimirbytesPDF(PdfFactura(Vta, AplicaPagare:=AplicaPagare, Guardar:=Guardar), Vta.SerieFolio, "PDF") + Vta = Nothing + End If + End If + + End Sub +#End Region + +#Region " - OP = 'Alm' - REPORTE ENTRADAS ALMACEN " + + Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer) + Dim ObjInventarios As New ClsInventarios + + ObjInventarios.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) + + Dim CveConcepto As Integer = ObjInventarios.CveConcepto + Dim Folio As String = ObjInventarios.Folio.ToString + Dim CveCompra = ObjInventarios.CveCompra + Dim Fecha As String = ObjInventarios.Fecha.ToShortDateString + Dim FechaHora As DateTime = ObjInventarios.FechaHora + Dim Almacen As String = ObjInventarios.Almacen + Dim RazonSocial As String = ObjInventarios.Proveedor + Dim RazonSocialOC As String = ObjInventarios.RazonSocialOC + Dim CalleOrigen As String = ObjInventarios.CalleOrigen + Dim NoExtOrigen As String = ObjInventarios.NoExtOrigen + Dim ColoniaOrigen As String = ObjInventarios.ColoniaOrigen + Dim LocalidadOrigen As String = ObjInventarios.LocalidadOrigen + Dim MunicipioOrigen As String = ObjInventarios.MunicipioOrigen + Dim EstadoOrigen As String = ObjInventarios.EstadoOrigen + Dim PaisOrigen As String = ObjInventarios.PaisOrigen + Dim CPOrigen As String = ObjInventarios.CPOrigen + Dim CalleDestino As String = ObjInventarios.CalleDestino + Dim NoExtDestino As String = ObjInventarios.NoExtDestino + Dim ColoniaDestino As String = ObjInventarios.ColoniaDestino + Dim LocalidadDestino As String = ObjInventarios.LocalidadDestino + Dim MunicipioDestino As String = ObjInventarios.MunicipioDestino + Dim EstadoDestino As String = ObjInventarios.EstadoDestino + Dim PaisDestino As String = ObjInventarios.PaisDestino + Dim CPDestino As String = ObjInventarios.CPDestino + Dim Proveedor As String = ObjInventarios.Proveedor + Dim Remision As String = ObjInventarios.Remision + Dim SubProyecto As String = ObjInventarios.SubProyecto + Dim Observaciones As String = ObjInventarios.Observaciones + Dim ObservacionesSolicitud As String = ObjInventarios.DtResultados.FiltroPrimeroValor("ObservacionesSolicitud") + Dim NombreCapturo As String = ObjInventarios.NombreCapturo + Dim NombreEntrego As String = ObjInventarios.DtResultados.FiltroPrimeroValor("Entrego") + Dim CveAlmacen As Integer = ObjInventarios.CveAlmacen + Dim Recibio As String = ObjInventarios.Recibio + Dim PuestoRecibio As String = ObjInventarios.PuestoRecibio + Dim PuestoEnrego As String = ObjInventarios.PuestoEntrego + Dim ResponsableCarga As String = ObjInventarios.ResponsableCarga + Dim ResponsableRecibio As String = ObjInventarios.ResponsableRecibio + Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo") + + If String.IsNullOrEmpty(Recibio) Then + Dim ObjRH As New ClsRH + If ObjRH.GetPersonal(ObjInventarios.CvePersonal, UsuarioActual.CveEmpresa) AndAlso ObjRH.DtResultados.Rows.Count > 0 Then + Recibio = ObjRH.DtResultados.Rows(0)("NombreCompleto").ToString + End If + ObjRH.Dispose() + End If + + Dim Personal As String = ObjInventarios.NombreCompleto + Dim Capturo As String = ObjInventarios.NombreCapturo + Dim AlmacenDestino As String = ObjInventarios.AlmacenDestino + Dim CveConsignacion As Integer = ObjInventarios.CveConsignacion + Dim Moneda As String = ObjInventarios.Moneda + Dim CveMoneda As Integer = ObjInventarios.CveMoneda + Dim FolioVenta As String = ObjInventarios.FolioVenta + Dim FolioOC As String = ObjInventarios.FolioOC + Dim FolioInterno As String = ObjInventarios.FolioInterno + + Dim CveCliente As Integer = ObjInventarios.CveCliente + Dim NombreCliente As String = ObjInventarios.NombreCliente + Dim CveClienteSucursal As Integer = ObjInventarios.CveClienteSucursal + Dim DepartamentoEntrega As String = ObjInventarios.DepartamentoEntrega + Dim FechaMovimiento As Date = ObjInventarios.FechaRegistro + + Dim CveMovimientoRelacionado As Integer = -1 + Dim FolioRelacionado As String = "" + Dim CveConceptoMovtoRelacionado As Integer = -1 + + Dim CveTipoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacen}").ToString.ToEntero + + 'VERIFICA SI TIENE MOVIMIENTO VIRTUAL RELACIONADO + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then + CveMovimientoRelacionado = ObjInventarios.DtResultados.Rows(0)("CveMtoRel").ToString().ToEntero() + If CveConcepto.Contiene(2, 3, 26, 27, 40, 41) AndAlso ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero() > 0 Then + FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioVirtual") + CveMovimientoRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero + CveConceptoMovtoRelacionado = 37 + ElseIf CveConcepto.Contiene(36, 37) Then + FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado") + CveConceptoMovtoRelacionado = 3 + ElseIf CveConcepto.Contiene(2) AndAlso CveTipoAlmacen.Contiene(24, 25) Then + FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado") + CveConceptoMovtoRelacionado = 3 + End If + End If + + + + Dim CantidadProductos As Decimal = 0 + Dim CantidadUsados As Decimal = 0 + + If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Or CveConcepto = 40 Then 'SALIDA Y DEVOLUCION DEL CLIENTE + If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa) Then + DtMovimientos = ObjInventarios.DtResultados + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveMovimientoRelacionado > 0 Then + If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then + Dim CveAlmacenRelacionado As Integer = ObjInventarios.DtResultados.Rows(0)("CveAlmacen").ToString().ToEntero() + Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero + + 'SI TIENE RELACIONADO UN MOVIMIENTO VIRTUAL DEBE AGREGAR ESTE MOVIMIENTO A LA IMPRESION + If CveTipoAlmacenRelacionado.Contiene(24, 25) Then + If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then + Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy() + CantidadUsados = DtUsados.SUM("Cantidad").ToDecimal() + Dim IndexInicialUsados As Integer = DtMovimientos.Rows.Count + 1 + + For Each Dr As DataRow In DtUsados.Rows + Dr("No") = IndexInicialUsados + IndexInicialUsados += 1 + Next + + DtMovimientos.Merge(DtUsados) + End If + End If + End If + End If + + DtMovimientos.Columns("No").AutoIncrement = True + DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1 + DtMovimientos.Columns("No").AutoIncrementStep = 1 + Dim keys(1) As DataColumn + keys(0) = DtMovimientos.Columns("No") + DtMovimientos.PrimaryKey = keys + End If + Else + If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then + DtMovimientos = ObjInventarios.DtResultados.Copy() + CantidadProductos = DtMovimientos.SUM("Cantidad").ToDecimal() + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveMovimientoRelacionado > 0 Then + If ObjInventarios.GetMovimientos(CveMovimientoRelacionado, -1, -1, UsuarioActual.CveEmpresa) Then + Dim CveAlmacenRelacionado As Integer = ObjInventarios.CveAlmacen + Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero + + 'SI TIENE RELACIONADO UN MOVIMIENTO VIRTUAL DEBE AGREGAR ESTE MOVIMIENTO A LA IMPRESION + If CveTipoAlmacenRelacionado.Contiene(24, 25) Then + If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then + Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy() + CantidadUsados = DtUsados.SUM("Cantidad").ToDecimal() + Dim IndexInicialUsados As Integer = DtMovimientos.Rows.Count + 1 + + For Each Dr As DataRow In DtUsados.Rows + Dr("No") = IndexInicialUsados + IndexInicialUsados += 1 + Next + + DtMovimientos.Merge(DtUsados) + End If + End If + End If + End If + + DtMovimientos.Columns("No").AutoIncrement = True + DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1 + DtMovimientos.Columns("No").AutoIncrementStep = 1 + Dim keys(1) As DataColumn + keys(0) = DtMovimientos.Columns("No") + DtMovimientos.PrimaryKey = keys + End If + End If + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCompra > 0 Then + If ObjInventarios.RecepcionAlmacenGet(CveCompra, -1, -1, UsuarioActual.CveEmpresa, -1) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then + Dim DtFaltante As DataTable = ObjInventarios.DtResultados.FiltraParametros("CantidadF > 0") + If DtFaltante.Rows.Count > 0 Then + Dim SbPendientes As New StringBuilder + SbPendientes.AppendFormat("Los siguientes productos quedaron pendientes por recibir:") + For Each Row As DataRow In DtFaltante.Rows + SbPendientes.AppendFormat(" PS:{0} Cant.:{1:N0},", Row("CodigoPS"), Row("CantidadF")) + Next + SbPendientes.Remove(SbPendientes.Length - 1, 1) + + SbPendientes.AppendFormat(" Total Cant.:{0:N0}, Total Costo:{1:N2}", DtFaltante.SUM("CantidadF"), DtFaltante.SUM("Total")) + + If Not String.IsNullOrEmpty(Observaciones) Then + Observaciones = SbPendientes.ToString() + ".
" + Observaciones + Else + Observaciones = SbPendientes.ToString() + End If + End If + DtFaltante.Dispose() + End If + End If + + If CveTipoAlmacen = 20 Then + CveConcepto = 24 + End If + + ObjInventarios.Dispose() + If RazonSocial = "" AndAlso NombreCliente <> "" Then RazonSocial = NombreCliente + + ImprimePDFAlmacen(CveConcepto, CveCompra, Folio.ToString, Fecha, Almacen, SubProyecto, Observaciones, Recibio, + Personal, Capturo, AlmacenDestino, CveConsignacion, CveMoneda, Moneda, FolioVenta, FolioOC, + FolioInterno, FechaHora, ObservacionesSolicitud, DepartamentoEntrega, RazonSocialOC, + Remision, Proveedor, CalleOrigen, NoExtOrigen, ColoniaOrigen, LocalidadOrigen, MunicipioOrigen, + EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino, + MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio, + PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente, + CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego, + CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo) + + End Sub + Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera + If CveMoneda > 1 Then + DtMovimientos.Columns("PU").ColumnName = "PUx" + DtMovimientos.Columns("Total").ColumnName = "Totalx" + DtMovimientos.Columns("PUExtranjero").ColumnName = "PU" + DtMovimientos.Columns("TotalExtranjero").ColumnName = "Total" + End If + End Sub + Private Sub ImprimePDFAlmacen(CveConcepto As Integer, CveCompra As Integer, Folio As String, Fecha As String, Almacen As String, SubProyecto As String, Observaciones As String, Recibio As String, + Personal As String, Capturo As String, AlmacenDestino As String, CveConsignacion As Integer, CveMoneda As Integer, Moneda As String, FolioVenta As String, FolioOC As String, + FolioInterno As String, FechaHora As DateTime, ObservacionesSolicitud As String, DepartamentoEntrega As String, RazonSocialOC As String, + Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String, + EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String, + 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 = "") + + + Select Case CveConcepto + Case 1 'INICIAL + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Inicial.rdlc", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + Dim SBDireccion As New StringBuilder() + + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Concepto", "Inventario Inicial")) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + 'params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2))) + 'params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2))) + 'params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2))) + params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + + If Archivo.Exists Then + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios") + Else + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + If Imagen.Exists Then + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + ImprimirPDF("Empresas/Grales/Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios") + End If + + Case 2, 32, 33, 36 ' E N T R A D A S + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + + Dim dr As DataRow = Nothing + If CveCompra > 0 Then + 'buscar en compras, para mandar los datos + Dim ObjCompra As New ClsCompras() + If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then + dr = ObjCompra.DtResultados.Rows(0) + End If + ObjCompra.Dispose() + + End If + + + Dim params As New List(Of ReportParameter) + If Archivo.Exists Then + + If UsuarioActual.CveEmpresa.Contiene(4, 145) Then + params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").ToString, ""))) + End If + If UsuarioActual.CveEmpresa = 119 Then + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + params.Add(New ReportParameter("RazonSocialOC", RazonSocialOC)) + params.Add(New ReportParameter("RazonSocial", RazonSocial)) + params.Add(New ReportParameter("Remision", Remision)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FolioOC", FolioOC)) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, ""))) + params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, ""))) + End If + + Dim ConceptoFormato As String = "ENTRADA DE ALMACÉN" + If CveConcepto = 32 Then ConceptoFormato = "ENTRADA POR AJUSTE" + If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL" + + 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH + If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146) Then + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Concepto", ConceptoFormato)) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + + + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, ""))) + + If UsuarioActual.CveEmpresa.Contiene(72, 80) Then + params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss")))) + Else + params.Add(New ReportParameter("Fecha", Fecha)) + End If + + If UsuarioActual.CveEmpresa = 72 Then + params.Add(New ReportParameter("CveTipoAlmacen", CveTipoAlmacen.ToString())) + End If + + params.Add(New ReportParameter("Observaciones", Observaciones)) + + If UsuarioActual.CveEmpresa.Contiene(72, 80) Then + params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, ""))) + params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, ""))) + params.Add(New ReportParameter("RFCProveedor", If(CveCompra > 0, dr("RFC").ToString, ""))) + params.Add(New ReportParameter("TelefonoProveedor", If(CveCompra > 0, dr("Telefono").ToString, ""))) + params.Add(New ReportParameter("ContactoProveedor", If(CveCompra > 0, dr("ContactoNombre").ToString, ""))) + params.Add(New ReportParameter("ImporteLetra", String.Format("({0})", DtMovimientos.SUM("Total").ToString.ToDouble.Texto2Letras(CveMoneda).ToUpper))) + params.Add(New ReportParameter("SubTotal", If(CveCompra > 0, (dr("SubTotal").ToString.ToDouble).FormatoNumero, ""))) + params.Add(New ReportParameter("Descuentos", If(CveCompra > 0, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), ""))) + params.Add(New ReportParameter("IVA", If(CveCompra > 0, (dr("IVA").ToString.ToDouble).FormatoNumero, ""))) + params.Add(New ReportParameter("Total", If(CveCompra > 0, (dr("Total").ToString.ToDouble).FormatoNumero, ""))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) + params.Add(New ReportParameter("NombreEntrego", String.Format("REVISÓ ALMACÉN{0}{1}", vbCrLf, Recibio))) + params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ ALMACÉN{0}{1}", vbCrLf, Recibio))) + Else + params.Add(New ReportParameter("NombreRecibio", String.Format(Recibio))) + params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + End If + + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios") + ElseIf UsuarioActual.CveEmpresa = 140 Then + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + Dim concepto As String = "" + If CveConcepto.Contiene(2, 32, 33) Then + concepto = "ENTRADA DE ALMACÉN" + ElseIf CveConcepto.Contiene(36) Then + concepto = "ENTRADA VIRTUAL" + End If + + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Concepto", concepto)) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("FacturadoA", NombreCliente)) + params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, ""))) + params.Add(New ReportParameter("Descuentos", If(CveCompra > 0 AndAlso dr IsNot Nothing, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), ""))) + params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), ""))) + params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), ""))) + 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString())) + params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado)) + + ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") + Else + + params.Add(New ReportParameter("TipoDocumento", String.Format("Compras {0}", Almacen))) + params.Add(New ReportParameter("Fecha", If(CveCompra > 0, dr("Fecha").ToString.ToDate.ToShortDateString, ""))) + params.Add(New ReportParameter("Folio", Folio.ToString)) + params.Add(New ReportParameter("NumeroOrden", If(CveCompra > 0, dr("OCVinculada").ToString, ""))) + params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, ""))) + params.Add(New ReportParameter("NombreProveedor", RazonSocial)) + params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, ""))) + params.Add(New ReportParameter("CiudadProveedor", " ")) + params.Add(New ReportParameter("EstadoProveedor", " ")) + params.Add(New ReportParameter("RFCProveedor", If(CveCompra > 0, dr("RFC").ToString, ""))) + + params.Add(New ReportParameter("SubTotal", If(CveCompra > 0, (dr("SubTotal").ToString.ToDouble).FormatoNumero, ""))) + params.Add(New ReportParameter("Descuentos", If(CveCompra > 0, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), ""))) + params.Add(New ReportParameter("IVA", If(CveCompra > 0, dr("IVA").ToString.FormatoNumero(2), ""))) + params.Add(New ReportParameter("Total", If(CveCompra > 0, dr("Total").ToString.FormatoNumero(2), ""))) + params.Add(New ReportParameter("TotalLetra", If(CveCompra > 0, String.Format("({0})", dr("Total").ToString.ToDouble.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper), ""))) + + params.Add(New ReportParameter("Observaciones", If(CveCompra > 0, dr("Observaciones").ToString, ""))) + params.Add(New ReportParameter("Capturo", If(CveCompra > 0, dr("NombreCapturo").ToString, ""))) + + PUanacExtr(CveMoneda) + + + ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") + End If + + + Else + + ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Concepto", "ENTRADA DE ALMACÉN")) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("FacturadoA", NombreCliente)) + params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, ""))) + params.Add(New ReportParameter("Descuentos", If(CveCompra > 0 AndAlso dr IsNot Nothing, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), ""))) + params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), ""))) + params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), ""))) + params.Add(New ReportParameter("Observaciones", Observaciones)) + 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + If (UsuarioActual.CveEmpresa = 72) Then + params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) + End If + ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") + End If + + Case 3, 16, 37, 40 ' S A L I D A S + 'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72)) + 'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72)) + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta)) + Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + Dim concepto As String = "" + If CveConcepto.Contiene(3, 40) Then + concepto = "SALIDA DE ALMACÉN" + ElseIf CveConcepto = 37 Then + concepto = "SALIDA VIRTUAL" + Else + concepto = "SALIDA DE ALMACÉN POR RECONSTRUCCIÓN" + End If + + If DtMovimientos(0)("CveAlmacen").ToString.ToEntero.Contiene(77, 146, 147, 148, 229, 342, 359, 360, 361, 362) Then + If Archivo2.Exists Then + If UsuarioActual.CveEmpresa.Contiene(72, 80) Then + Dim CiudadSucursal As String = "" + Dim DomicilioSucursal As String = "" + Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString) + + If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal + + If DtMovimientos(0)("CveVenta").ToString <> "" Then + CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) + DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) + Else + DomicilioSucursal = DomicilioCliente + End If + + params.Add(New ReportParameter("Concepto", "Salida de Almacén Por Consumo Interno")) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss")))) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreCompleto", DtMovimientos(0)("NombreCompleto").ToString)) + params.Add(New ReportParameter("Puesto", DtMovimientos(0)("Puesto").ToString)) + params.Add(New ReportParameter("Turno", DtMovimientos(0)("Turno").ToString)) + params.Add(New ReportParameter("Departamento", DtMovimientos(0)("Departamento").ToString)) + params.Add(New ReportParameter("CentroCosto", DtMovimientos(0)("CentroCosto").ToString)) + params.Add(New ReportParameter("CodigoEmpleado", DtMovimientos(0)("CodigoEmpleado").ToString)) + params.Add(New ReportParameter("Celular", DtMovimientos(0)("Celular").ToString)) + params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString)) + params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("NombreEntrego", Capturo)) + params.Add(New ReportParameter("NombreRecibio", Recibio)) + + End If + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios") + End If + Else + If Archivo.Exists Then + + 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH + If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146) Then + Dim CiudadSucursal As String = "" + Dim DomicilioSucursal As String = "" + Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString) + + If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal + + If DtMovimientos(0)("CveVenta").ToString <> "" Then + CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) + DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) + Else + + DomicilioSucursal = DomicilioCliente + End If + + + If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then + + params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss")))) + params.Add(New ReportParameter("SucursalCliente", DtMovimientos(0)("SucCliente").ToString)) + params.Add(New ReportParameter("RFCCliente", DtMovimientos(0)("RFC").ToString)) + params.Add(New ReportParameter("DireccionCliente", DomicilioCliente)) + params.Add(New ReportParameter("TelefonoCliente", DtMovimientos(0)("SucClienteTelefono").ToString)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) + params.Add(New ReportParameter("VendedorNombre", DtMovimientos(0)("Vendedor").ToString)) + + If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then + Dim StrEnvioDi As New StringBuilder + StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString) + If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString) + If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString) + + params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString)) + params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("EnvioNoExt").ToString)) + params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("EnvioNoInt").ToString)) + params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString)) + params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString)) + params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString)) + params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString)) + params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString)) + params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString)) + params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString)) + params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString)) + params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString)) + Else + Dim StrEnvioDi As New StringBuilder + StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString) + If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString) + If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString) + + Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString() + Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString() + + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString)) + params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("SucClienteNoExt").ToString)) + params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("SucClienteNoInt").ToString)) + params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("SucClienteColonia").ToString)) + params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("SucClienteCiudad").ToString)) + params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("SucClienteEstado").ToString)) + params.Add(New ReportParameter("EnvioContacto", EnvioContacto)) + params.Add(New ReportParameter("EnvioDepartamento", DepartamentoEnvio)) + params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("SucClienteCP").ToString)) + params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString)) + params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString)) + params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString)) + End If + End If + + params.Add(New ReportParameter("Concepto", concepto)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) + params.Add(New ReportParameter("NombreEntrego", Capturo)) + params.Add(New ReportParameter("NombreRecibio", Recibio)) + params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal)) + params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString)) + params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString)) + params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + + If UsuarioActual.CveEmpresa = 72 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno)) + If UsuarioActual.CveEmpresa = 80 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno)) + If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("Fecha", Fecha)) + + + 'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios") + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") + ElseIf UsuarioActual.CveEmpresa = 140 Then + + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Concepto", concepto)) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) + params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente))) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Descuentos", "")) + params.Add(New ReportParameter("IVA", "")) + params.Add(New ReportParameter("Total", "")) + 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreRecibio", Recibio)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString())) + params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado)) + params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro)) + + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") + Else + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("SubProyecto", SubProyecto)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", Capturo)) + params.Add(New ReportParameter("NombreRecibio", Recibio)) + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") + End If + + Else + Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta)) + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Concepto", concepto)) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) + params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente))) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Descuentos", "")) + params.Add(New ReportParameter("IVA", "")) + params.Add(New ReportParameter("Total", "")) + 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreRecibio", Recibio)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + + + + If UsuarioActual.CveEmpresa.Contiene(143) Then + Dim objclientes As New ClsClientes + If objclientes.GetClientes(-1, DtMovimientos(0)("Nombre").ToString, "-1", "-1", "-1", "-1", "-1", -1, 143) Then + params.Add(New ReportParameter("NombreComercial", objclientes.DtResultados(0)("NombreComercial").ToString)) + End If + If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then + Dim StrEnvioDi As New StringBuilder + StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString) + If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString) + If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString) + + params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString)) + params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString)) + params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString)) + params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString)) + params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString)) + params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString)) + params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString)) + params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString)) + params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString)) + Else + Dim StrEnvioDi As New StringBuilder + StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString) + If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString) + If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString) + + Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString() + Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString() + + params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString)) + params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString)) + params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString)) + params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString)) + params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString)) + params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString)) + params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString)) + params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString)) + params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString)) + End If + End If + + + If A.Exists Then + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") + Else + ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") + End If + + End If + End If + + Case 4 ' ENTRADA POR DESARMADO + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Concepto", "Entrada por Desarmado de Paquete")) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Descuentos", "")) + params.Add(New ReportParameter("IVA", "")) + params.Add(New ReportParameter("Total", "")) + 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + params.Add(New ReportParameter("FacturadoA", NombreCliente)) + If (UsuarioActual.CveEmpresa = 72) Then + params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) + End If + + ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Desarmado - {0}", Folio.ToString), RDSName:="DsInventarios") + + Case 5 'SALIDA POR ARMADO + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Concepto", "Salida por Armado de Paquete")) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Descuentos", "")) + params.Add(New ReportParameter("IVA", "")) + params.Add(New ReportParameter("Total", "")) + 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + params.Add(New ReportParameter("FacturadoA", NombreCliente)) + If (UsuarioActual.CveEmpresa = 72) Then + params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) + End If + ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida por Armado - {0}", Folio.ToString), RDSName:="DsInventarios") + + Case 6, 23 ' ENTRADA RESGUARDO + If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then + Dim params As New List(Of ReportParameter) + If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Concepto", CveConcepto.ToString)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", Personal)) + params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + params.Add(New ReportParameter("LogoPath", logouri)) + If DtMovimientos.COUNT("Serie") > 0 Then + params.Add(New ReportParameter("MostrarSerieLote", "1")) + Else + params.Add(New ReportParameter("MostrarSerieLote", "0")) + End If + Else + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) + params.Add(New ReportParameter("NombreRecibio", Personal)) + params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("AlmacenOrigen", Almacen)) + params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) + params.Add(New ReportParameter("NombreProveedor", Proveedor)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + End If + + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") + Else + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + Dim TipoResponsable As String = "" + Dim Responsable As String = "" + + Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" + + If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then + Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" + End If + + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Fecha", Fecha)) + 'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) + params.Add(New ReportParameter("AlmacenOrigen", Almacen)) + params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) + + Dim Mov As New ClsInventarios + If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then + If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then + TipoResponsable = "Personal" + Responsable = Recibio + 'Responsable = Mov.DtResultados(0)("RazonSocial").ToString + ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then + TipoResponsable = "Cliente" + Responsable = Mov.DtResultados(0)("Nombre").ToString + ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then + TipoResponsable = "Proveedor" + Responsable = Mov.DtResultados(0)("RazonSocial").ToString + End If + End If + Mov.Dispose() + + params.Add(New ReportParameter("Responsable", Responsable)) + params.Add(New ReportParameter("TipoResponsable", TipoResponsable)) + + ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") + End If + Case 7 ' SALIDA RESGUARDO + If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then + Dim params As New List(Of ReportParameter) + If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Concepto", CveConcepto.ToString)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) + params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("NombreRecibio", Personal)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + params.Add(New ReportParameter("LogoPath", logouri)) + If DtMovimientos.COUNT("Serie") > 0 Then + params.Add(New ReportParameter("MostrarSerieLote", "1")) + Else + params.Add(New ReportParameter("MostrarSerieLote", "0")) + End If + Else + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) + params.Add(New ReportParameter("NombreRecibio", Personal)) + params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("AlmacenOrigen", Almacen)) + params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) + params.Add(New ReportParameter("NombreProveedor", Proveedor)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + + End If + + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") + Else + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + Dim TipoResponsable As String = "" + Dim Responsable As String = "" + + Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" + + If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then + Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" + End If + + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Fecha", Fecha)) + 'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) + params.Add(New ReportParameter("AlmacenOrigen", Almacen)) + params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) + + Dim Mov As New ClsInventarios + If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then + If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then + TipoResponsable = "Personal" + Responsable = Recibio + 'Responsable = Mov.DtResultados(0)("RazonSocial").ToString + ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then + TipoResponsable = "Cliente" + Responsable = Mov.DtResultados(0)("Nombre").ToString + ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then + TipoResponsable = "Proveedor" + Responsable = Mov.DtResultados(0)("RazonSocial").ToString + End If + End If + Mov.Dispose() + + params.Add(New ReportParameter("Responsable", Responsable)) + params.Add(New ReportParameter("TipoResponsable", TipoResponsable)) + + ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") + End If + + Case 8, 26 ' T R A S L A D O - S A L I D A + + Dim params As New List(Of ReportParameter) + Dim RutaFormato As String = "{0}Formatos\Traslado.rdlc" + + params.Add(New ReportParameter("CveConcepto", "8")) 'FolioTraspaso.ToString + 'params.Add(New ReportParameter("TipoTraslado", "AVISO")) 'FolioTraspaso.ToString + params.Add(New ReportParameter("SubProyecto", String.Format("Traslado de: {0} A {1}", Almacen, AlmacenDestino))) 'DdlAlmacenDestino.SelectedItem.ToString + params.Add(New ReportParameter("Folio", Folio)) 'FolioTraspaso.ToString + params.Add(New ReportParameter("Fecha", Fecha)) 'TxtFecha.Text + params.Add(New ReportParameter("NombreEntrego", Capturo)) 'UsuarioActual.Nombre + params.Add(New ReportParameter("NombreAccion", Recibio)) 'TxtResponsable.Text + params.Add(New ReportParameter("Accion", "RECIBE")) 'Antes Trasladó + params.Add(New ReportParameter("Observaciones", Observaciones)) + + + Dim DTCliente As New DataTable + Dim SBDireccionO As New StringBuilder() + Dim SBDireccionD As New StringBuilder() + Dim CveCliente As Integer = 0 + Dim CveDireccionEnvio As Integer = 0 + Dim ClienteNombre = "", EnvioContacto = "", EnvioDireccion = "", EnvioColonia = "", EnvioCiudad = "", EnvioEstado = "", ClientePais = "", EnvioCP = "", Contrato = "", + Paqueteria = "", NumContrato = "", Guia = "" + + Dim CveContrato As Integer = 0 + If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then + CveContrato = DtMovimientos(0)("CveContrato").ToString.ToEntero + End If + + If CveContrato > 0 Then + Contrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}") + NumContrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}") + CveCliente = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero + CveDireccionEnvio = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveDireccionEnvio", $"CveContrato = {CveContrato}").ToEntero + + If CveCliente > 0 Then + DTCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}") + Dim ObjVentas As New ClsClientes + If ObjVentas.DireccionEnvioGet(CveDireccionEnvio, -1, -1) Then + If ObjVentas.DtResultados.Rows.Count > 0 Then + ClienteNombre = DTCliente.FiltroPrimeroValor("Nombre") + ClientePais = DTCliente.FiltroPrimeroValor("PAIS") + EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString + EnvioDireccion = ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString + EnvioColonia = ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString + EnvioCiudad = ObjVentas.DtResultados.Rows(0)("EnvioCiudad").ToString + EnvioCP = ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString + EnvioEstado = ObjVentas.DtResultados.Rows(0)("EnvioEstado").ToString + Else + ClienteNombre = DTCliente.FiltroPrimeroValor("Nombre") + EnvioContacto = DTCliente.FiltroPrimeroValor("Contacto") + EnvioDireccion = DTCliente.FiltroPrimeroValor("Direccion") + EnvioColonia = DTCliente.FiltroPrimeroValor("Colonia") + EnvioCiudad = DTCliente.FiltroPrimeroValor("Ciudad") + EnvioEstado = DTCliente.FiltroPrimeroValor("Estado") + ClientePais = DTCliente.FiltroPrimeroValor("PAIS") + EnvioCP = DTCliente.FiltroPrimeroValor("CP") + End If + End If + ObjVentas.Dispose() + End If + + params.Add(New ReportParameter("ClienteNombre", ClienteNombre)) + params.Add(New ReportParameter("EnvioContacto", EnvioContacto)) + params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion)) + params.Add(New ReportParameter("EnvioColonia", EnvioColonia)) + params.Add(New ReportParameter("EnvioCiudad", EnvioCiudad)) + params.Add(New ReportParameter("EnvioEstado", EnvioEstado)) + params.Add(New ReportParameter("ClientePais", ClientePais)) + params.Add(New ReportParameter("EnvioCP", EnvioCP)) + params.Add(New ReportParameter("Contrato", Contrato)) + params.Add(New ReportParameter("Paqueteria", Paqueteria)) + params.Add(New ReportParameter("NumeroContrato", NumContrato)) + params.Add(New ReportParameter("Guia", Guia)) + + 'CAMBIAMOS DE FORMATO POR QUE TIENE CONTRATO + RutaFormato = "{0}Formatos\TrasladoAlmacen.rdlc" + 'CAMBIAMOS LA OBSERVACION POR LA DE LA SOLICITUD DE TRASLADO + Observaciones = ObservacionesSolicitud + End If + + If UsuarioActual.CveEmpresa = 119 Then + If CalleOrigen.Length > 0 Then + SBDireccionO.AppendFormat("{0}", CalleOrigen) + If NoExtOrigen.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", NoExtOrigen) + If ColoniaOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Col: {0}", ColoniaOrigen) + If CPOrigen.Length > 0 Then SBDireccionO.AppendFormat(", CP: {0}", CPOrigen) + If LocalidadOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Loc: {0}", LocalidadOrigen) + If MunicipioOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Cd: {0}", MunicipioOrigen) + If EstadoOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Edo: {0}", EstadoOrigen) + If PaisOrigen.Length > 0 Then SBDireccionO.AppendFormat(", País: {0}", PaisOrigen) + params.Add(New ReportParameter("DireccionOrigen", SBDireccionO.ToString)) + End If + If CalleDestino.Length > 0 Then + SBDireccionD.AppendFormat("{0}", CalleDestino) + If NoExtDestino.Length > 0 Then SBDireccionD.AppendFormat(", No.Ext: {0}", NoExtDestino) + If ColoniaDestino.Length > 0 Then SBDireccionD.AppendFormat(", Col: {0}", ColoniaDestino) + If CPDestino.Length > 0 Then SBDireccionD.AppendFormat(", CP: {0}", CPDestino) + If LocalidadDestino.Length > 0 Then SBDireccionD.AppendFormat(", Loc: {0}", LocalidadDestino) + If MunicipioDestino.Length > 0 Then SBDireccionD.AppendFormat(", Cd: {0}", MunicipioDestino) + If EstadoDestino.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", EstadoDestino) + If PaisDestino.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", PaisDestino) + params.Add(New ReportParameter("DireccionDestino", SBDireccionD.ToString)) + End If + End If + + + Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta)) + If Archivo.Exists Then + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + If UsuarioActual.CveEmpresa = 140 Then + params.Add(New ReportParameter("Origen", Almacen)) + params.Add(New ReportParameter("Destino", AlmacenDestino)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("CantidadProductos", CantidadProductos.ToString())) + params.Add(New ReportParameter("CantidadUsados", CantidadUsados.ToString())) + params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString())) + params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado)) + ElseIf UsuarioActual.CveEmpresa = 153 Then + params.Add(New ReportParameter("Origen", Almacen)) + params.Add(New ReportParameter("Destino", AlmacenDestino)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + 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)) + Else + 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)) + End If + + If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("AlmacenOrigen", Almacen)) + params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) + params.Add(New ReportParameter("ResponsableCarga", ResponsableCarga)) + params.Add(New ReportParameter("ResponsableRecibio", ResponsableRecibio)) + + DtMovimientos = DtMovimientos.FiltraParametros("", "PS") + End If + + ImprimirPDF(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios") + Else + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + If Imagen.Exists Then + ' params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + params.Add(New ReportParameter("Origen", Almacen)) + params.Add(New ReportParameter("Destino", AlmacenDestino)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios") + End If + + + + Case 9, 27 ' T R A S L A D O - E N T R A D A + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + + params.Add(New ReportParameter("CveConcepto", "9")) 'FolioTraspaso.ToString + 'params.Add(New ReportParameter("TipoTraslado", "RECEPCIÓN")) 'FolioTraspaso.ToString + params.Add(New ReportParameter("SubProyecto", String.Format("Traslado de: {0} A {1}", AlmacenDestino, Almacen))) 'DdlAlmacenDestino.SelectedItem.ToString + params.Add(New ReportParameter("Folio", Folio)) 'FolioTraspaso.ToString + params.Add(New ReportParameter("Fecha", Fecha)) 'TxtFecha.Text + params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text + 'params.Add(New ReportParameter("NombreEntrego", Capturo)) 'UsuarioActual.Nombre + params.Add(New ReportParameter("NombreAccion", Recibio)) 'TxtResponsable.Text + params.Add(New ReportParameter("Accion", "RECIBIÓ")) + + If Archivo.Exists Then + 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)) + + If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("AlmacenOrigen", Almacen)) + params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) + DtMovimientos = DtMovimientos.FiltraParametros("", "PS") + ElseIf UsuarioActual.CveEmpresa = 140 Then + params.Add(New ReportParameter("CantidadProductos", "500")) + params.Add(New ReportParameter("CantidadUsados", "500")) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte + params.Add(New ReportParameter("Destino", Almacen)) + + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString())) + params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado)) + ElseIf UsuarioActual.CveEmpresa = 153 Then + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte + params.Add(New ReportParameter("Destino", Almacen)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + End If + + + + ImprimirPDF(String.Format("{0}Formatos\Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios") + Else + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + params.Add(New ReportParameter("Origen", Almacen)) + params.Add(New ReportParameter("Destino", AlmacenDestino)) + + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios") + End If + + Case 10 'E N T R A D A P O R C O N S I G N A C I Ó N + If CveConsignacion > 0 Then + 'buscar en compras, para mandar los datos + Dim ObjInventarios As New ClsInventarios() + If ObjInventarios.GetConsignacionesImpresion(CveConsignacion) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then + Dim dr As DataRow = ObjInventarios.DtResultados.Rows(0) + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("TipoDocumento", "Entrada por Consignación")) + params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("Folio", Folio.ToString)) + params.Add(New ReportParameter("FacturaProveedor", dr("SerieFolio").ToString)) + params.Add(New ReportParameter("NombreProveedor", dr("RazonSocial").ToString)) + params.Add(New ReportParameter("DireccionProveedor", dr("Direccion").ToString)) + params.Add(New ReportParameter("RFCProveedor", dr("RFC").ToString)) + params.Add(New ReportParameter("Capturo", dr("NombreCapturo").ToString)) + params.Add(New ReportParameter("Moneda", Moneda)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + PUanacExtr(CveMoneda) + ImprimirPDF(String.Format("{0}Formatos/EntradasConsignacion.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada por Consignacion - {0}", Folio.ToString), RDSName:="DsInventarios") + End If + ObjInventarios.Dispose() + + End If + Case 11 'S A L I D A P O R C O N S I G N A C I Ó N + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("SubProyecto", SubProyecto)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + params.Add(New ReportParameter("Observaciones", Observaciones)) + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasConsignacion.rdlc", DtMovimientos, params, String.Format("Salida por Consignacion - {0}", Folio.ToString), RDSName:="DsInventarios") + Case 12 'D E V O L U C I O N D E C O N S I G N A C I O N + Dim params As New List(Of ReportParameter) + Dim ObjInventarios As New ClsInventarios() + + If ObjInventarios.GetConsignacionesImpresion(CveConsignacion) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then + + Dim dr As DataRow = ObjInventarios.DtResultados.Rows(0) + params.Add(New ReportParameter("CveConcepto", "12")) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("SubProyecto", SubProyecto)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + params.Add(New ReportParameter("NombreProveedor", dr("RazonSocial").ToString)) + params.Add(New ReportParameter("DireccionProveedor", dr("Direccion").ToString)) + params.Add(New ReportParameter("CiudadProveedor", " ")) + params.Add(New ReportParameter("EstadoProveedor", " ")) + params.Add(New ReportParameter("RFCProveedor", dr("RFC").ToString)) + params.Add(New ReportParameter("Consignacion", dr("SerieFolio").ToString)) + 'params.Add(New ReportParameter("Serie", Serie)) + 'params.Add(New ReportParameter("SubTotal", (dr("SubTotal").ToString.ToDouble).FormatoNumero)) + 'params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2))) + 'params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2))) + 'params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2))) + 'params.Add(New ReportParameter("TotalLetra", String.Format("({0})", dr("Total").ToString.ToDouble.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper))) + + End If + + If UsuarioActual.CveEmpresa = 119 Then + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + End If + 'ObjInventarios.Dispose() + Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString))) + If ObjInventarios.GetMovimientosDetalle(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, UsuarioActual.CveEmpresa) Then + Dim TotalFinal As Double = ObjInventarios.DtResultados.SUM("Total") * 1.16 + Dim dr As DataRow = ObjInventarios.DtResultados.Rows(0) + 'params.Add(New ReportParameter("IVA", dr("IVA").ToString)) + params.Add(New ReportParameter("TotalLetra", String.Format("({0})", TotalFinal.Texto2Letras().ToUpper))) + + End If + ObjInventarios.Dispose() + + 'If CveCompra > 0 Then + ' Dim ObjCompra As New ClsCompras() + ' If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then + ' Dim dr As DataRow = ObjCompra.DtResultados.Rows(0) + ' params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) + ' params.Add(New ReportParameter("Serie", dr("SerieFolio").ToString)) + ' params.Add(New ReportParameter("SubTotal", (dr("SubTotal").ToString.ToDouble).FormatoNumero)) + ' params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2))) + ' params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2))) + ' params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2))) + ' params.Add(New ReportParameter("TotalLetra", String.Format("({0})", (dr("Total").ToString.ToDouble).Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper))) + + ' End If + ' ObjCompra.Dispose() + 'End If + + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionConsignacion.rdlc", DtMovimientos, params, String.Format("Devolucion por Consignacion - {0}", Folio), RDSName:="DsInventarios") + Case 13 'D E V O L U C I O N D E P R O V E E D O R + Dim params As New List(Of ReportParameter) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta)) + + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("SubProyecto", SubProyecto)) + params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + + Dim ObjCompra As New ClsCompras() + If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then + Dim dr As DataRow = ObjCompra.DtResultados.Rows(0) + Dim FechaCompra As Date = dr("FechaMovto").ToString.ToDate + Dim FechaVencimiento As Date = dr("FechaVencimiento").ToString.ToDate + params.Add(New ReportParameter("Fecha", FechaCompra.ToShortDateString)) + params.Add(New ReportParameter("FechaVencimiento", FechaVencimiento.ToShortDateString)) + params.Add(New ReportParameter("Plazo", DateDiff(DateInterval.Day, FechaCompra, FechaVencimiento).ToString)) + 'params.Add(New ReportParameter("Folio", Folio.ToString)) + params.Add(New ReportParameter("Serie", dr("Serie").ToString)) + + 'params.Add(New ReportParameter("NumeroOrden", dr("OCVinculada").ToString)) + params.Add(New ReportParameter("FacturaProveedor", dr("SerieFolio").ToString)) + params.Add(New ReportParameter("NombreProveedor", dr("RazonSocial").ToString)) + params.Add(New ReportParameter("DireccionProveedor", dr("Direccion").ToString)) + params.Add(New ReportParameter("CiudadProveedor", " ")) + params.Add(New ReportParameter("EstadoProveedor", " ")) + params.Add(New ReportParameter("RFCProveedor", dr("RFC").ToString)) + params.Add(New ReportParameter("CodigoProveedor", dr("FolioMovimiento").ToString)) + params.Add(New ReportParameter("OrigenCompra", dr("SerieFolio").ToString)) + params.Add(New ReportParameter("SubTotal", (dr("SubTotal").ToString.ToDouble).FormatoNumero)) + params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2))) + params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2))) + params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2))) + params.Add(New ReportParameter("TotalLetra", String.Format("({0})", dr("Total").ToString.ToDouble.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper))) + + params.Add(New ReportParameter("Observaciones", dr("Observaciones").ToString)) + params.Add(New ReportParameter("Capturo", dr("NombreCapturo").ToString)) + + Else + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + End If + ObjCompra.Dispose() + + If Not Archivo.Exists Then + + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + ImprimirPDF(String.Format("Empresas/Grales/Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios") + Else + ImprimirPDF(String.Format("{0}Formatos\DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios") + End If + + 'ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionProveedor.rdlc", DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios") + Case 14 'E N T R E G A P O R G A R A N T I A + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + + If UsuarioActual.CveEmpresa = 72 Then + Dim SisEmpresa As New ClsSisEmpresas() + Dim EmpInfo As DataRow + Dim domicilioFiscal As String = "" + If SisEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then + EmpInfo = SisEmpresa.DtResultados.Rows(0) + domicilioFiscal = String.Format("{0} No.{1}, Col. {2}, CP:{3},{4},{5},MEXICO. RFC:{6}", EmpInfo.Item("Direccion"), EmpInfo.Item("NoExt"), EmpInfo.Item("Colonia"), EmpInfo.Item("CP"), EmpInfo.Item("Ciudad"), EmpInfo.Item("Estado"), EmpInfo.Item("RFC")) + params.Add(New ReportParameter("DomicilioFiscal", domicilioFiscal)) + End If + End If + + Dim CiudadSucursal As String = "" + Dim DomicilioSucursal As String = "" + If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal + + If DtMovimientos(0)("CveVenta").ToString <> "" Then + CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) + DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) + End If + + params.Add(New ReportParameter("Concepto", "Entrada por garantia")) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) + params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal)) + params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString)) + params.Add(New ReportParameter("EnviarA", "")) + params.Add(New ReportParameter("Entrega", "")) + params.Add(New ReportParameter("Observaciones", Observaciones)) + + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/EntradaGarantia.rdlc", DtMovimientos, params, String.Format("EntradaPorGarantia{0}", Folio.ToString), RDSName:="DsInventarios") + + Case 15 'S A L I D A G A R A N T I A + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + + 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH + Dim CiudadSucursal As String = "" + Dim DomicilioSucursal As String = "" + If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal + + If DtMovimientos(0)("CveVenta").ToString <> "" Then + CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) + DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) + End If + + + params.Add(New ReportParameter("Concepto", "Salida Garantía")) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) + params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal)) + params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString)) + params.Add(New ReportParameter("EnviarA", "")) + params.Add(New ReportParameter("Entrega", "")) + params.Add(New ReportParameter("Observaciones", Observaciones)) + + ' If UsuarioActual.CveEmpresa = 72 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno)) + + 'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios") + If (UsuarioActual.CveEmpresa = 72) Then + params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) + End If + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios") + 'Else + ' params.Add(New ReportParameter("Folio", Folio)) + ' params.Add(New ReportParameter("Fecha", Fecha)) + ' params.Add(New ReportParameter("Almacen", Almacen)) + ' params.Add(New ReportParameter("SubProyecto", SubProyecto)) + ' params.Add(New ReportParameter("Observaciones", Observaciones)) + ' params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + ' ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") + 'End If + + + Case 18 'D E V O L U C I O N D E L C L I E N T E + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionCliente.rdlc", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + + If Archivo.Exists Then + 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES + 'If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then + Dim CiudadSucursal As String = "" + Dim DomicilioSucursal As String = "" + + If DtMovimientos(0)("CveVenta").ToString <> "" Then + CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) + DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) + End If + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE")) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) + params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreRecibio", Recibio)) + params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal)) + params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString)) + params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString)) + params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + + If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + If UsuarioActual.CveEmpresa = 72 Then + Dim SisEmpresa As New ClsSisEmpresas() + Dim EmpInfo As DataRow + Dim domicilioFiscal As String = "" + If SisEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then + EmpInfo = SisEmpresa.DtResultados.Rows(0) + domicilioFiscal = String.Format("{0} No.{1}, Col. {2}, CP:{3},{4},{5},MEXICO. RFC:{6}", EmpInfo.Item("Direccion"), EmpInfo.Item("NoExt"), EmpInfo.Item("Colonia"), EmpInfo.Item("CP"), EmpInfo.Item("Ciudad"), EmpInfo.Item("Estado"), EmpInfo.Item("RFC")) + params.Add(New ReportParameter("DomicilioFiscal", domicilioFiscal)) + End If + End If + End If + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios") + 'End If + Else + ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + Dim CiudadSucursal As String = "" + Dim DomicilioSucursal As String = "" + + If DtMovimientos(0)("CveVenta").ToString <> "" Then + CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) + DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) + End If + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE")) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) + params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreRecibio", Recibio)) + params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal)) + params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString)) + params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString)) + params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + + ImprimirPDF("Empresas/Grales/Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios") + 'End If + End If + + Case 19 'ARMADO DE PAQUETE + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Concepto", "Armado de Paquete")) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Descuentos", "")) + params.Add(New ReportParameter("IVA", "")) + params.Add(New ReportParameter("Total", "")) + 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + params.Add(New ReportParameter("FacturadoA", NombreCliente)) + If (UsuarioActual.CveEmpresa = 72) Then + params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) + End If + + ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Armado de Paquete - {0}", Folio.ToString), RDSName:="DsInventarios") + + Case 20 'DESARMADO DE PAQUETE + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + + ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Concepto", "Desarmado de Paquete")) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Descuentos", "")) + params.Add(New ReportParameter("IVA", "")) + params.Add(New ReportParameter("Total", "")) + 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + params.Add(New ReportParameter("FacturadoA", NombreCliente)) + If (UsuarioActual.CveEmpresa = 72) Then + params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) + End If + ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Desarmado de Paquete - {0}", Folio.ToString), RDSName:="DsInventarios") + + + Case 21, 22 'SALIDA POR PRESTAMO + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + + Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalida.rdlc" + If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then + Archivo = "Empresas/Grales/Formatos/EntradaSalida.rdlc" + End If + + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + 'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + If CveConcepto = 21 Then + params.Add(New ReportParameter("Concepto", "Salida por Prestamo")) + Else + params.Add(New ReportParameter("Concepto", "Entrada por Prestamo")) + End If + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Descuentos", "")) + params.Add(New ReportParameter("IVA", "")) + params.Add(New ReportParameter("Total", "")) + 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + params.Add(New ReportParameter("FacturadoA", NombreCliente)) + If (UsuarioActual.CveEmpresa = 72) Then + params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) + Else + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + End If + If CveConcepto = 21 Then + ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Salida por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios") + ElseIf CveConcepto = 22 Then + ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios") + End If + + 'Case 22 'ENTRADA POR PRESTAMO + ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim params As New List(Of ReportParameter) + + ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + ' If Imagen.Exists Then + ' params.Add(New ReportParameter("LogoPath", logouri)) + ' Else + ' params.Add(New ReportParameter("LogoPath", "")) + ' End If + + ' params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + ' params.Add(New ReportParameter("Concepto", "Entrada por Prestamo")) + ' params.Add(New ReportParameter("Almacen", Almacen)) + ' params.Add(New ReportParameter("Fecha", Fecha)) + ' params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + ' params.Add(New ReportParameter("Folio", Folio)) + ' params.Add(New ReportParameter("Descuentos", "")) + ' params.Add(New ReportParameter("IVA", "")) + ' params.Add(New ReportParameter("Total", "")) + ' 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + ' params.Add(New ReportParameter("FacturadoA", NombreCliente)) + ' If (UsuarioActual.CveEmpresa = 72) Then + ' params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) + ' End If + ' ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios") + + Case 24 'SALIDA POR RESGUARDO + If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + + Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalidaUniforme.rdlc", UsuarioActual.Empresa.Ruta)) + Dim Archivo As String = String.Format("{0}Formatos/EntradaSalidaUniforme.rdlc", UsuarioActual.Empresa.Ruta) + + If Not ArchivoRuta.Exists Then + Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc" + End If + + ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + Dim DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio)) + Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", NombreEntrego)) + + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Concepto", "Salida por resguardo")) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Descuentos", "")) + params.Add(New ReportParameter("IVA", "")) + params.Add(New ReportParameter("Total", "")) + params.Add(New ReportParameter("NombreEntrego", NombreEntrego)) + params.Add(New ReportParameter("NombreRecibio", Recibio)) + If UsuarioActual.CveEmpresa = 72 Then + params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego)) + params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio)) + params.Add(New ReportParameter("Sucursal", SubProyecto)) + params.Add(New ReportParameter("DepartamentoRecibio", DepartamentoRecibe)) + params.Add(New ReportParameter("DepartamentoEntrego", DepartamentoEntrego)) + + End If + params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + + + ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Uniforme_{0}", Folio.ToString), RDSName:="DsInventarios") + Else + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + Dim TipoResponsable As String = "" + Dim Responsable As String = "" + + Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" + + If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then + Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" + End If + + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Fecha", Fecha)) + 'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) + params.Add(New ReportParameter("AlmacenOrigen", Almacen)) + params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) + + Dim Mov As New ClsInventarios + If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then + If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then + TipoResponsable = "Personal" + Responsable = Recibio + 'Responsable = Mov.DtResultados(0)("RazonSocial").ToString + ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then + TipoResponsable = "Cliente" + Responsable = Mov.DtResultados(0)("Nombre").ToString + ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then + TipoResponsable = "Proveedor" + Responsable = Mov.DtResultados(0)("RazonSocial").ToString + End If + End If + Mov.Dispose() + + params.Add(New ReportParameter("Responsable", Responsable)) + params.Add(New ReportParameter("TipoResponsable", TipoResponsable)) + + ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") + End If + + Case 28, 29 'ENTRADA POR PRESTAMO DE PROVEEDOR + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + Dim ConceptoReporte As String = If(CveConcepto = 28, "Entrada por Préstamo", "Devolución de Préstamo") + + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Concepto", ConceptoReporte)) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Proveedor", Proveedor)) + params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + + ImprimirPDF("Empresas/Grales/Formatos/PrestamosProveedor.rdlc", DtMovimientos, params, String.Format("Proveedor - {0}", Folio.ToString), RDSName:="DsInventarios") + + Case 30 + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta)) + Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + '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 UsuarioActual.CveEmpresa.Contiene(72, 80) Then + Dim CiudadSucursal As String = "" + Dim DomicilioSucursal As String = "" + Dim DomicilioCliente As String = "" 'String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString) + + If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal + + If DtMovimientos(0)("CveVenta").ToString <> "" Then + CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) + DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) + Else + DomicilioSucursal = DomicilioCliente + End If + + params.Add(New ReportParameter("Concepto", "Salida de Almacén Por Consumo Interno")) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss")))) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreCompleto", DtMovimientos(0)("NombreCompleto").ToString)) + params.Add(New ReportParameter("Puesto", DtMovimientos(0)("Puesto").ToString)) + params.Add(New ReportParameter("Turno", DtMovimientos(0)("Turno").ToString)) + params.Add(New ReportParameter("Departamento", DtMovimientos(0)("Departamento").ToString)) + params.Add(New ReportParameter("CentroCosto", DtMovimientos(0)("CentroCosto").ToString)) + params.Add(New ReportParameter("CodigoEmpleado", DtMovimientos(0)("CodigoEmpleado").ToString)) + params.Add(New ReportParameter("Celular", DtMovimientos(0)("Celular").ToString)) + params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString)) + params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("NombreEntrego", Capturo)) + params.Add(New ReportParameter("NombreRecibio", Recibio)) + + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + 'End If + + If Archivo2.Exists Then + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios") + Else + ImprimirPDF("Empresas/Grales/Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios") + End If + + Case 31 'SALIDA POR DEMOSTRACION + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidaDemostracion.rdlc", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + + If Archivo.Exists Then + params.Add(New ReportParameter("Concepto", "SALIDA POR DEMOSTRACIÓN")) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("NombreRecibio", Recibio)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidaDemostracion.rdlc", DtMovimientos, params, String.Format("Salida por Demostración - {0}", Folio.ToString), RDSName:="DsInventarios") + End If + Case 34, 35 ' S A L I D A S P O R A J U S T E --- S A L I D A M A N U A L + 'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72)) + 'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72)) + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta)) + Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + + If DtMovimientos(0)("CveAlmacen").ToString.ToEntero.Contiene(77, 146, 147, 148, 229, 342, 359, 360, 361, 362) Then + If Archivo2.Exists Then + If UsuarioActual.CveEmpresa.Contiene(72, 80) Then + Dim CiudadSucursal As String = "" + Dim DomicilioSucursal As String = "" + Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString) + + If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal + + If DtMovimientos(0)("CveVenta").ToString <> "" Then + CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) + DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) + Else + DomicilioSucursal = DomicilioCliente + End If + + params.Add(New ReportParameter("Concepto", "SALIDA POR AJUSTE")) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss")))) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreCompleto", DtMovimientos(0)("NombreCompleto").ToString)) + params.Add(New ReportParameter("Puesto", DtMovimientos(0)("Puesto").ToString)) + params.Add(New ReportParameter("Turno", DtMovimientos(0)("Turno").ToString)) + params.Add(New ReportParameter("Departamento", DtMovimientos(0)("Departamento").ToString)) + params.Add(New ReportParameter("CentroCosto", DtMovimientos(0)("CentroCosto").ToString)) + params.Add(New ReportParameter("CodigoEmpleado", DtMovimientos(0)("CodigoEmpleado").ToString)) + params.Add(New ReportParameter("Celular", DtMovimientos(0)("Celular").ToString)) + params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString)) + params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("NombreEntrego", Capturo)) + params.Add(New ReportParameter("NombreRecibio", Recibio)) + + End If + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios") + End If + Else + If Archivo.Exists Then + + Dim ConceptoReporte As String = "SALIDA POR AJUSTE" + If CveConcepto = 35 Then ConceptoReporte = "SALIDA MANUAL" + + 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH + If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145) Then + Dim CiudadSucursal As String = "" + Dim DomicilioSucursal As String = "" + Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString) + + If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal + + If DtMovimientos(0)("CveVenta").ToString <> "" Then + CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) + DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) + Else + + DomicilioSucursal = DomicilioCliente + End If + + + If UsuarioActual.CveEmpresa.Contiene(72, 80) Then + + params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss")))) + params.Add(New ReportParameter("SucursalCliente", DtMovimientos(0)("SucCliente").ToString)) + params.Add(New ReportParameter("RFCCliente", DtMovimientos(0)("RFC").ToString)) + params.Add(New ReportParameter("DireccionCliente", DomicilioCliente)) + params.Add(New ReportParameter("TelefonoCliente", DtMovimientos(0)("SucClienteTelefono").ToString)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) + params.Add(New ReportParameter("VendedorNombre", DtMovimientos(0)("Vendedor").ToString)) + + If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then + Dim StrEnvioDi As New StringBuilder + StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString) + If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString) + If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString) + + params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString)) + params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("EnvioNoExt").ToString)) + params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("EnvioNoInt").ToString)) + params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString)) + params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString)) + params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString)) + params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString)) + params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString)) + params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString)) + params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString)) + params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString)) + params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString)) + Else + Dim StrEnvioDi As New StringBuilder + StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString) + If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString) + If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString) + + Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString() + Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString() + + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString)) + params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("SucClienteNoExt").ToString)) + params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("SucClienteNoInt").ToString)) + params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("SucClienteColonia").ToString)) + params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("SucClienteCiudad").ToString)) + params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("SucClienteEstado").ToString)) + params.Add(New ReportParameter("EnvioContacto", EnvioContacto)) + params.Add(New ReportParameter("EnvioDepartamento", DepartamentoEnvio)) + params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("SucClienteCP").ToString)) + params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString)) + params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString)) + params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString)) + End If + End If + + params.Add(New ReportParameter("Concepto", ConceptoReporte)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) + params.Add(New ReportParameter("NombreEntrego", Capturo)) + params.Add(New ReportParameter("NombreRecibio", Recibio)) + params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal)) + params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString)) + params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString)) + params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + + If UsuarioActual.CveEmpresa = 72 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno)) + If UsuarioActual.CveEmpresa = 80 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno)) + If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("Fecha", Fecha)) + + + 'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios") + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") + Else + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("SubProyecto", SubProyecto)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", Capturo)) + params.Add(New ReportParameter("NombreRecibio", Recibio)) + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") + End If + + Else + Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta)) + ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + 'params.Add(New ReportParameter("LogoPath", logouri)) + Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName) + params.Add(New ReportParameter("LogoPath", LogoRuta)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Concepto", "SALIDA POR AJUSTE")) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) + params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Descuentos", "")) + params.Add(New ReportParameter("IVA", "")) + params.Add(New ReportParameter("Total", "")) + 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreRecibio", Recibio)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + + + + If UsuarioActual.CveEmpresa.Contiene(143) Then + Dim objclientes As New ClsClientes + If objclientes.GetClientes(-1, DtMovimientos(0)("Nombre").ToString, "-1", "-1", "-1", "-1", "-1", -1, 143) Then + params.Add(New ReportParameter("NombreComercial", objclientes.DtResultados(0)("NombreComercial").ToString)) + End If + If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then + Dim StrEnvioDi As New StringBuilder + StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString) + If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString) + If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString) + + params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString)) + params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString)) + params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString)) + params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString)) + params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString)) + params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString)) + params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString)) + params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString)) + params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString)) + Else + Dim StrEnvioDi As New StringBuilder + StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString) + If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString) + If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString) + + Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString() + Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString() + + params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString)) + params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString)) + params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString)) + params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString)) + params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString)) + params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString)) + params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString)) + params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString)) + params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString)) + End If + End If + + + If A.Exists Then + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") + Else + ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") + End If + + End If + End If + + Case 42 'ENTRADAS USADOS + + Dim ObjAcum As New ClsAcumuladores + Dim DatosEntradasUsados As New DataTable + Dim CveAlmacen As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", String.Format("Almacen = '{0}'", Almacen)) + If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, CveAlmacen.ToEntero, Convert.ToDateTime(Fecha.ToString), Convert.ToDateTime(Today.ToString)) Then + DatosEntradasUsados = ObjAcum.DtResultados + + End If + ObjAcum.Dispose() + + 'Dim Dia As String = {"lunes", "martes", "miércoles", "jueves", "viernes", "sábado", "domingo"}(If((Weekday(Today) - 2) = -1, 7, Weekday(Today) - 2)) + 'Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today) - 1) + + 'Dim FechaConFormato As String = String.Format("{0}, {1} de {2} de {3}", Dia, Day(Today), Mes, Year(Today)) + + Dim params As New List(Of ReportParameter) + + params.Add(New ReportParameter("Direccion", Almacen)) + params.Add(New ReportParameter("FechaConFormato", Now.ToString("dd/MM/yyyy"))) + 'params.Add(New ReportParameter("FechaInicial", Fecha)) + 'params.Add(New ReportParameter("FechaFinal", Today.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Sucursal", "Sucursal")) + params.Add(New ReportParameter("Cliente", NombreCliente)) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("FechaImpresion", Now.ToString("dd/MM/yyyy hh:mm tt"))) + params.Add(New ReportParameter("Recibio", Recibio)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + 'params.Add(New ReportParameter("Observaciones", "Observaciones con un tamaño mas grande para ver como se ve en el ticket chico.")) + + ImprimirPDF(String.Format("Empresas/{0}/Formatos/UsadosEntradas.rdlc", UsuarioActual.CveEmpresa), DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios") + Case 7 + Dim params As New List(Of ReportParameter) + Dim CiudadSucursal As String = "" + Dim DomicilioSucursal As String = "" + + If DtMovimientos(0)("CveVenta").ToString <> "" Then + CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) + DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) + End If + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE")) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("FacturaProveedor", FolioVenta)) + params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreRecibio", Recibio)) + params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal)) + params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString)) + params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString)) + params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios") + 'End If + + End Select + + If CveConcepto = 2 Then + ElseIf CveConcepto = 3 Then + End If + End Sub + + +#End Region + +#Region "OP = 'OC' - IMPRIME PDF OC" + Private Sub ImprimePDFOC(CveOrdenCompra As Integer) + Dim reporte As Byte() = NewGeneraBytesOC(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1")) + 'Dim reporte As Byte() = GeneraBytesOC(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1")) + If IsNothing(reporte) Then + Else + Dim ObjOC As New ClsOC + Dim Folio As Integer = 0 + If ObjOC.GetOC(CveOrdenCompra, UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then + Folio = ObjOC.Folio + End If + ObjOC.Dispose() + If Folio > 0 Then + ImprimirbytesPDF(reporte, $"OrdenCompra-{Folio.ToString}") + End If + + End If + End Sub + + Private Sub ImprimePDFCotOC(CveOrdenCompra As Integer) + Dim reporte As Byte() + + reporte = NewGeneraOCCotizacion(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1")) + If IsNothing(reporte) Then + Else + Dim ObjOC As New ClsOC + Dim Folio As Integer = 0 + If ObjOC.GetOC(CveOrdenCompra, UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then + Folio = ObjOC.Folio + End If + ObjOC.Dispose() + If Folio > 0 Then + ImprimirbytesPDF(reporte, $"OrdenCompra-{Folio.ToString}") + End If + End If + End Sub + +#End Region + +#Region "OP = 'VAL' - IMPRIME PDF VAL" + Private Sub GenerarPDFVale(CveVale As Integer) + + Dim ObjAF As New ClsAF + If ObjAF.GetValesCombustible(-1, CveVale, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1) Then + Dim dtVC As DataTable = ObjAF.DtResultados + Dim dr As DataRow = dtVC.Rows(0) + + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("Folio", dr("Folio").ToString)) + params.Add(New ReportParameter("Proveedor", dr("RazonSocial").ToString)) + params.Add(New ReportParameter("Obra", dr("SubProyecto").ToString)) + params.Add(New ReportParameter("NoEconomico", dr("Codigo").ToString)) + params.Add(New ReportParameter("Fecha", dr("Fecha").ToString)) + params.Add(New ReportParameter("Operador", dr("NombreCompleto").ToString)) + params.Add(New ReportParameter("Combustible", dr("Combustible").ToString)) + params.Add(New ReportParameter("LitrosCombustible", dr("Litros").ToString)) + ImprimirPDF(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/ValesCombustible.rdlc", UsuarioActual.Empresa.Ruta), dtVC, params) + + 'ImprimirPDFview(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/ValesCombustible.rdlc", UsuarioActual.Empresa.Ruta), lrds, params, "formato", "pdf", ReportViewer1) + 'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas\1\Formatos\ValesCombustible.rdlc", UsuarioActual.Empresa.Rulrdsta)) + 'If Archivo.Exists Then + + 'Else + ' 'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + ' ImprimirPDF("/Empresas/1/Formatos/ValesCombustible.rdlc", dtVC, params, "ValeCombustible") + 'End If + End If + ObjAF.Dispose() + End Sub +#End Region + +#Region "OP = 'OS' - IMPRIMIR PDF OS" + Private Sub GenerarPDFOS(CveOS As Integer) + Dim ObjOS As New ClsOS() + Dim params As New List(Of ReportParameter) + Dim CveFolio = "" + CreaDT() + Dim ReporteEmpresa As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta)) + + If ObjOS.GetOrdenesServicios(CveOS, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then + If ObjOS.DtResultados.Rows.Count > 0 Then + + Dim dtOS As DataTable = ObjOS.DtResultados + Dim dr As DataRow = dtOS.Rows(0) + params.Add(New ReportParameter("Cliente", dr("Cliente").ToString)) + params.Add(New ReportParameter("Solicito", dr("PersonaSolicito").ToString)) + params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString)) + params.Add(New ReportParameter("Recibio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaRecibido", dr("FechaRecepcion").ToString)) + params.Add(New ReportParameter("FolioOS", dr("Folio").ToString)) + params.Add(New ReportParameter("ClienteTelefono", dr("Telefono").ToString)) + params.Add(New ReportParameter("ClienteCalle", dr("Direccion").ToString)) + params.Add(New ReportParameter("ClienteColonia", dr("Colonia").ToString)) + params.Add(New ReportParameter("ClienteCiudad", dr("Ciudad").ToString)) + params.Add(New ReportParameter("ClienteEstado", dr("Estado").ToString)) + CveFolio = dr("Folio").ToString + + If ReporteEmpresa.Exists Then + params.Add(New ReportParameter("NoDeCliente", dr("CveCliente").ToString)) + params.Add(New ReportParameter("RFC", dr("RFC").ToString)) + params.Add(New ReportParameter("Vendedor", " ")) + params.Add(New ReportParameter("Correo", dr("Correo").ToString)) + params.Add(New ReportParameter("CodigoDeServicio", dr("CveOS").ToString)) + params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString)) + params.Add(New ReportParameter("TipoServicio", dr("TipoServicio").ToString)) + params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString)) + params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString)) + params.Add(New ReportParameter("Copia", "Copia: Original")) + params.Add(New ReportParameter("Equipo", dr("Equipo").ToString)) + End If + End If + End If + + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + If Not ReporteEmpresa.Exists Then + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) + + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + End If + + If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then + TmpDTOS = ObjOS.DtResultados + End If + + If ObjOS.GetDetalleMateriales(-1, CveOS) Then + TmpDTMaterialesOS = ObjOS.DtResultados + End If + Dim lrds As New List(Of ReportDataSource) + Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS} + Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS} + + lrds.Add(rds) + lrds.Add(rds2) + ObjOS.Dispose() + + ImprimirPDF(String.Format("Empresas/{0}/Formatos/OrdenServicio.rdlc", UsuarioActual.CveEmpresa), lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio)) + End Sub + Private Sub CreaDT() + TmpDTOS = New DataTable + TmpDTOS.Columns.Add("CveOSDetalle", GetType(Integer)) + + TmpDTOS.Columns.Add("CveClasificacion", GetType(Integer)) + TmpDTOS.Columns.Add("Clasificacion", GetType(String)) + TmpDTOS.Columns.Add("CvePS", GetType(Integer)) + TmpDTOS.Columns.Add("CveUM", GetType(Integer)) + TmpDTOS.Columns.Add("UM", GetType(String)) + TmpDTOS.Columns.Add("Cantidad", GetType(Integer)) + TmpDTOS.Columns.Add("PS", GetType(String)) + TmpDTOS.Columns.Add("Especificaciones", GetType(String)) + TmpDTOS.Columns.Add("Materiales", GetType(String)) + TmpDTOS.Columns.Add("CveCuentaEquipo", GetType(Integer)) + TmpDTOS.Columns.Add("Observaciones", GetType(String)) + TmpDTOS.Columns.Add("FechaAtencion", GetType(String)) + TmpDTOS.Columns.Add("CveUsuarioAtendio", GetType(Integer)) + TmpDTOS.Columns.Add("UsuarioAtendio", GetType(String)) + TmpDTOS.Columns.Add("FechaTermino", GetType(String)) + TmpDTOS.Columns.Add("FechaEntrega", GetType(String)) + TmpDTOS.Columns.Add("CveUsuarioEntrego", GetType(Integer)) + TmpDTOS.Columns.Add("UsuarioEntrego", GetType(String)) + TmpDTOS.Columns.Add("SeFacturara", GetType(String)) + TmpDTOS.Columns.Add("SeSuperviso", GetType(String)) + TmpDTOS.Columns.Add("Estatus", GetType(String)) + TmpDTOS.Columns.Add("Archivo", GetType(String)) + TmpDTOS.Columns.Add("ComentarioTecnico", GetType(String)) + End Sub + Private Sub CreaDTMateriales() + TmpDTMaterialesOS = New DataTable + TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer)) + + TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer)) + TmpDTMaterialesOS.Columns.Add("CveConsecutivo", GetType(Integer)) + TmpDTMaterialesOS.Columns.Add("CveConsecutivoDetalle", GetType(Integer)) + TmpDTMaterialesOS.Columns.Add("CveMaterial", GetType(Integer)) + TmpDTMaterialesOS.Columns.Add("Cantidad", GetType(Integer)) + TmpDTMaterialesOS.Columns.Add("CveClasificacion", GetType(Integer)) + TmpDTMaterialesOS.Columns.Add("CvePS", GetType(String)) + TmpDTMaterialesOS.Columns.Add("CveUM", GetType(String)) + TmpDTMaterialesOS.Columns.Add("Clasificacion", GetType(String)) + TmpDTMaterialesOS.Columns.Add("PS", GetType(String)) + TmpDTMaterialesOS.Columns.Add("UM", GetType(String)) + End Sub +#End Region + +#Region "OP = 'OI' - Crear Archivo " + Private Sub CrearArchivo(Archivo As String) + Dim ObjEventos As New ClsOIEventos + + Dim path As String = Server.MapPath(String.Format(Archivo)) + Dim file As System.IO.FileInfo = New System.IO.FileInfo(path) '-- if the file exists on the server + + DescargarArchivo(file) + End Sub + + +#End Region + +#Region "OP = 'Contratos' - Crear Archivo " + Private Sub CrearArchivoContratos(Archivo As String) + + + Dim file As System.IO.FileInfo = New System.IO.FileInfo(Archivo) '-- if the file exists on the server + + DescargarArchivo(file) + End Sub + + +#End Region + +#Region "OP = 'OI' - Descargar Archivo " + Private Sub DescargarArchivo(File As System.IO.FileInfo) + If File.Exists Then 'set appropriate headers + Response.Clear() + Response.AddHeader("Content-Disposition", "attachment; filename=" & File.Name) + Response.AddHeader("Content-Length", File.Length.ToString()) + Response.ContentType = "application/octet-stream" + + 'Select Case Path.GetExtension(File.Name).ToLower() + ' Case ".jpg" + ' Response.ContentType = "image/jpg" + ' Case ".gif" + ' Response.ContentType = "image/gif" + ' Case ".png" + ' Response.ContentType = "image/png" + ' Case ".docx" + ' Response.ContentType = "application/ms-word" + ' Case ".xlsx" + ' Response.ContentType = "application/ms-excel" + ' Case ".xlsx" + ' Response.ContentType = "application/ms-excel" + 'End Select + + Response.WriteFile(File.FullName) + Response.End() 'if file does not exist + Else + Alert("Ocurrio un error al descargar el archivo", TipoMensaje.MsgAdvertencia, "window.close()") + + End If 'nothing in the URL as HTTP GET + End Sub +#End Region + +#Region "OP = 'AFR' - AF" + + Private Sub ImprimirPDFAFR(CveAFR As Integer, Tipo As Integer) + Dim ObjAF As New ClsAF + 'Dim ObjSubProyecto As New ClsSubProyectos + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\ResguardoAF.rdlc", UsuarioActual.Empresa.Ruta)) + + Dim dtVC As DataTable = Nothing + Dim dtHijos As DataTable = Nothing + + Dim params As New List(Of ReportParameter) + Dim dr As DataRow = Nothing + Dim NomArchivo As String = "Reporte" + + If ObjAF.GetActivosFijosResguardos(-1, CveAFR, -1, -1) Then + dtVC = ObjAF.DtResultados + End If + + + dr = dtVC.Rows(0) + + Select Case Tipo + Case 1 + params.Add(New ReportParameter("Tipo", "RESGUARDO DE ACTIVO FIJO")) + params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString)) + params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString)) + params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}")) + NomArchivo = $"Resguardo_Folio{dr("Folio").ToString}" + + If dtVC.Rows.Count > 0 Then + If ObjAF.GetActivosFijosHijos(UsuarioActual.CveEmpresa, dr("CveActivoFijo").ToString.ToEntero) Then + dtHijos = ObjAF.DtResultados + dtVC.Merge(dtHijos) + End If + End If + Case 2 + params.Add(New ReportParameter("Tipo", "TRASLADO DE ACTIVO FIJO")) + params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString)) + params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString)) + params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString}")) + NomArchivo = $"Traslado_Folio{dr("Folio").ToString}" + Case 3 + params.Add(New ReportParameter("Tipo", "RECEPCION DE TRASLADO DE ACTIVO FIJO")) + params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString)) + params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString)) + params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString}")) + NomArchivo = $"Recepcion_Folio{dr("Folio").ToString}" + Case 4 + params.Add(New ReportParameter("Tipo", "LIBERACION DE RESGUARDO DE ACTIVO FIJO")) + params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString)) + params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString)) + params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}")) + NomArchivo = $"Liberacion_Folio{dr("Folio").ToString}" + + If dtVC.Rows.Count > 0 Then + If ObjAF.GetActivosFijosHijos(UsuarioActual.CveEmpresa, dr("CveActivoFijo").ToString.ToEntero) Then + dtHijos = ObjAF.DtResultados + dtVC.Merge(dtHijos) + End If + End If + End Select + + ObjAF.Dispose() + + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + params.Add(New ReportParameter("SubproyectoDestino", dr("SubProyectoDestino").ToString)) + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Folio", dr("Folio").ToString)) + params.Add(New ReportParameter("Responsable", dr("NombreCompleto").ToString)) + params.Add(New ReportParameter("Observaciones", dr("ObservacionesAF").ToString)) + + + If UsuarioActual.CveEmpresa.Contiene(72) Then + Dim SBDomicilioSucursal As New StringBuilder() + Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("") + + If DRSucursal IsNot Nothing Then + Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado")) + Dim DomicilioSucursal As String = "" + + SBDomicilioSucursal.AppendFormat("{0}", DRSucursal("Calle")) + If DRSucursal("NoExt").ToString.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", DRSucursal("NoExt").ToString.ToEntero) + If DRSucursal("NoInt").ToString.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", DRSucursal("NoInt").ToString.ToEntero) + If DRSucursal("Colonia").ToString.Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", DRSucursal("Colonia").ToString) + If DRSucursal("CP").ToString.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", DRSucursal("CP").ToString) + If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal) + If DRSucursal("Pais").ToString.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", DRSucursal("Pais").ToString) + End If + + params.Add(New ReportParameter("NombreResponsable", dr("NombreCompleto").ToString)) + params.Add(New ReportParameter("RFC", dr("RFC").ToString)) + params.Add(New ReportParameter("Puesto", dr("Puesto").ToString)) + params.Add(New ReportParameter("PuestoEntrego", dr("PuestoEntrego").ToString)) + params.Add(New ReportParameter("Departamento", dr("Departamento").ToString)) + params.Add(New ReportParameter("DepartamentoEntrego", dr("DepartamentoEntrego").ToString)) + params.Add(New ReportParameter("Folio", dr("Folio").ToString)) + params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString)) + params.Add(New ReportParameter("Telefono", dr("Celular").ToString)) + params.Add(New ReportParameter("Direccion", dr("DireccionPersonal").ToString)) + params.Add(New ReportParameter("DireccionSucursal", SBDomicilioSucursal.ToString)) + End If + + + If Archivo.Exists Then + ImprimirPDF(String.Format("{0}Formatos\ResguardoAF.rdlc", UsuarioActual.Empresa.Ruta), dtVC, params, NomArchivo) + Else + ImprimirPDF("Empresas/Grales/Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo) + End If + + + End Sub + Private Sub ImprimirPDFAFR2(CveAFR As Integer, Tipo As Integer) + + Dim ObjAF As New ClsAF + + Dim dtVC As DataTable = Nothing + Dim params As New List(Of ReportParameter) + Dim dr As DataRow = Nothing + Dim NomArchivo As String = "Reporte" + + If Tipo = 1 OrElse Tipo = 2 Then + If ObjAF.GetActivosFijosResguardos(-1, -1, -1, CveAFR) Then + dtVC = ObjAF.DtResultados + End If + ElseIf Tipo = 3 OrElse Tipo = 4 Then + If ObjAF.GetActivosFijosResguardos(-1, -1, -1, -1, CveResguardo2:=CveAFR) Then + dtVC = ObjAF.DtResultados + End If + End If + ObjAF.Dispose() + + dr = dtVC.Rows(0) + + + Select Case Tipo + Case 1 + params.Add(New ReportParameter("Tipo", "RESGUARDO DE ACTIVO FIJO")) + params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString)) + params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString)) + params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}")) + NomArchivo = $"Resguardo_Folio{dr("Folio").ToString}" + Case 2 + params.Add(New ReportParameter("Tipo", "TRASLADO DE ACTIVO FIJO")) + params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString)) + params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString)) + params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString} ")) + NomArchivo = $"Traslado_Folio{dr("Folio").ToString}" + Case 3 + params.Add(New ReportParameter("Tipo", "RECEPCION DE TRASLADO DE ACTIVO FIJO")) + params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("NombreEntrego", dr("Nombre").ToString)) + params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString)) + params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString}")) + NomArchivo = $"Recepcion_Folio{dr("Folio").ToString}" + Case 4 + params.Add(New ReportParameter("Tipo", "LIBERACION DE RESGUARDO DE ACTIVO FIJO")) + params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("NombreEntrego", dr("Nombre").ToString)) + params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString)) + params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}")) + NomArchivo = $"Liberacion_Folio{dr("Folio").ToString}" + End Select + + params.Add(New ReportParameter("Subproyecto", dr("SubProyecto").ToString)) + params.Add(New ReportParameter("SubproyectoDestino", dr("SubProyectoDestino").ToString)) + + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.NombreCorto)) + params.Add(New ReportParameter("Folio", dr("Folio").ToString)) + params.Add(New ReportParameter("Responsable", dr("Nombre").ToString)) + params.Add(New ReportParameter("Observaciones", dr("Observaciones").ToString)) + + + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo) + + End Sub +#End Region + +#Region "OP = 'POL' " + Private Sub ImprimirPolizaPDF(IdPoliza As Integer) + 'Dim ObjConta As New ClsContabilidad + Dim ObjPoliza As New ClsContPAQi(UsuarioActual.Empresa) + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + + If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then + Dim dtVC As DataTable + Dim dr As DataRow + dtVC = ObjPoliza.DtResultados + dr = dtVC.Rows(0) + + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString)) + params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) + 'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString)) + 'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString)) + params.Add(New ReportParameter("Numero", dr("Folio").ToString)) + params.Add(New ReportParameter("Moneda", "")) + params.Add(New ReportParameter("CodigoPostal", "")) + + If UsuarioActual.CveEmpresa = 119 Then + params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("IdUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre"))) + End If + + If Archivo.Exists Then + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc", dtVC, params, "ReportePoliza") + Else + ImprimirPDF("Empresas/Grales/Formatos/Polizas.rdlc", dtVC, params, "ReportePoliza") + End If + End If + + ObjPoliza.Dispose() + + End Sub +#End Region + +#Region "OP = 'CAN' - CANCELACION" + Public Sub ImprimeCancelacion(CveVenta As Integer) + Dim drv As DataRow = Nothing + + Dim ObjVentas As New ClsVentas + If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then + drv = ObjVentas.DtResultados.FiltroPrimero("") + End If + ObjVentas.Dispose() + + If drv IsNot Nothing Then + Dim Total = drv("Total").ToString().ToDecimal() + Dim CveEstatusFactura = drv("CveEstatusFactura").ToString().ToEntero() + Dim FolioFiscal = drv("FolioFiscal").ToString() + Dim RFCReceptor = drv("RFCReceptor").ToString() + Dim SelloCancelacion = drv("SelloCancelacion").ToString() + Dim EstadoCancelacion = drv("EstadoCancelacion").ToString() + Dim FechaCancelacion = drv("FechaCancelacion").ToString.ToDateTime + + Dim RFCEmisor = UsuarioActual.Empresa.RFC + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacion.rdlc", ModExtensiones.DirectorioBaseEmpresas)) + + Dim Titulo As String = "Acuse de cancelación de CFDI" + Dim EstadoCFDI As String = "Cancelado" + + If CveEstatusFactura = 20 Then + Titulo = "Acuse de solicitud de cancelación de CFDI" + EstadoCFDI = "Vigente" + If String.IsNullOrEmpty(EstadoCancelacion) Then + EstadoCancelacion = "Cancelable con aceptación" + End If + ElseIf CveEstatusFactura = 5 Then + If String.IsNullOrEmpty(EstadoCancelacion) Then + If Total >= 5000 And FechaCancelacion.Year < 2022 Then + EstadoCancelacion = "Cancelado con aceptación" + End If + + If Total >= 1000 And FechaCancelacion.Year >= 2022 Then + EstadoCancelacion = "Cancelado con aceptación" + End If + + If String.IsNullOrEmpty(EstadoCancelacion) Then + EstadoCancelacion = "Cancelado sin aceptación" + End If + End If + End If + + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("Titulo", Titulo)) + params.Add(New ReportParameter("FolioFiscal", FolioFiscal)) + params.Add(New ReportParameter("RFCEmisor", RFCEmisor)) + params.Add(New ReportParameter("RFCReceptor", RFCReceptor)) + params.Add(New ReportParameter("SelloCancelacion", SelloCancelacion)) + params.Add(New ReportParameter("EstadoCFDI", EstadoCFDI)) + params.Add(New ReportParameter("EstadoCancelacion", EstadoCancelacion)) + params.Add(New ReportParameter("MsgError", "")) + params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString("dd/MM/yyyy HH:mm:ss"))) + + ImprimirPDF(Archivo.FullName, DtDetalle, params, "AcuseCancelacion" & CveVenta) + + End If + + End Sub +#End Region + +#Region "OP = 'DC' - DEPOSITOS CAJA" + Private Sub CargaDepositosCaja(CveIE As Integer, CuentaCaja As String, CuentaDeposito As String) + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DepositoCaja.rdlc", UsuarioActual.Empresa.Ruta)) + + Dim ObjIE As New ClsBancos() + Dim Tabla As DataTable + ObjIE.GetBancosIEMovimientosDepositos(CveIE, UsuarioActual.CveEmpresa) + Tabla = ObjIE.DtResultados + + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("Fecha", Now.ToDateTime.ToString)) + params.Add(New ReportParameter("FechaIE", ObjIE.DtResultados(0)("FechaDocumento").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("CuentaCaja", CuentaCaja)) + params.Add(New ReportParameter("CuentaDeposito", CuentaDeposito)) + + If Archivo.Exists Then + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DepositoCaja.rdlc", Tabla, params, "DepositoCaja") + Else + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + ImprimirPDF("Empresas\Grales\Formatos\DepositoCaja.rdlc", Tabla, params, "DepositoCaja") + End If + + + ObjIE.Dispose() + + End Sub +#End Region + +#Region "I E C H E Q U E S" + + Private Sub ImprimirIE(CveIE As Integer, CveEmpresa As Integer) + Dim CveTipoTransaccion = -1 + Dim ObjIE As New ClsBancos() + ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) + If ObjIE.DtResultados.Rows.Count > 0 Then + CveTipoTransaccion = ObjIE.CveTipoTransaccion + End If + Dim params As New List(Of ReportParameter) + + + If CveTipoTransaccion = 1 Then + Dim Folio = ObjIE.Folio + Dim Importe = ObjIE.Importe + Dim Observacion = ObjIE.Observaciones + Dim ImporteLetra = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda)) + Dim Beneficiario = ObjIE.PagueseA + Dim Fecha = ObjIE.FechaDocumento.ToShortDateString + Dim CveCuenta = ObjIE.CveCuenta + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Beneficiario", Beneficiario)) + params.Add(New ReportParameter("Importe", Importe.FormatoNumero)) + params.Add(New ReportParameter("ImporteLetra", ImporteLetra.ToUpper)) + params.Add(New ReportParameter("Observaciones", Observacion)) + params.Add(New ReportParameter("Tipo", If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", ""))) + + Dim DtMovimientosPoliza As DataTable = Nothing + If UsuarioActual.CveEmpresa = 48 Then + 'Movimientos del IE + If ObjIE.IDPoliza > 0 Then + + Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + If Not ObjConta.GetPoliza(ObjIE.IDPoliza, -1, -1, -1, -1) Then + Alert("Ocurrio un error al cargar los datos del cheque", TipoMensaje.MsgError) + Else + DtMovimientosPoliza = ObjConta.DtResultados.AsEnumerable().Take(27).CopyToDataTable + End If + + ObjConta.Dispose() + Else + DtMovimientosPoliza = New DataTable + DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String)) + DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String)) + DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double)) + DtMovimientosPoliza.Columns.Add("Abono", GetType(Double)) + + Dim Dr = DtMovimientosPoliza.NewRow + Dr("CODIGO") = "" + Dr("Cuenta") = "" + Dr("Cargo") = 0 + Dr("Abono") = 0 + DtMovimientosPoliza.Rows.Add(Dr) + End If + ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then + Dim PreP As New ClsContabilidad + If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then + DtMovimientosPoliza = New DataTable + DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String)) + DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String)) + DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double)) + DtMovimientosPoliza.Columns.Add("Abono", GetType(Double)) + + If PreP.DtResultados.Rows.Count > 0 Then + + For Each drt As DataRow In PreP.DtResultados.Rows + Dim Dr = DtMovimientosPoliza.NewRow + Dr("CODIGO") = drt("CuentaCodigo") + Dr("Cuenta") = drt("CuentaNombre") + Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0") + Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0") + DtMovimientosPoliza.Rows.Add(Dr) + + Next + + + End If + End If + PreP.Dispose() + End If + + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta)) + + If Archivo.Exists Then + ImprimirPDF(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio)) + Else + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC)) + ImprimirPDF(String.Format("Empresas\Grales\Formatos\CHQ.rdlc"), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio)) + End If + + + ElseIf CveTipoTransaccion.Contiene(2, 8, 9, 10) Then + + Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String + Dim FechaExpedicion As Date = Now + Dim Importe As Double + Dim FormatoCheque As String = "" + + Dim CveProveedor, CvePersonal, CveCuentaDeposito As Integer + Dim tIdPoliza As Integer + Dim DtMovimientosPoliza As DataTable = Nothing + Dim RFC As String = "" + Dim Correo As String = "" + Dim CLABE As String = "" + Dim NoSucursal As String = "" + Dim Telefono As String = "" + Dim IVA As Double = 0 + + Folio = "" + TextoImporte = "" : Observacion = "" : PagueseA = "" : UsuarioRegistro = "" : Banco = "" : NumCuenta = "" : AbonoCuenta = "" : SubProyecto = "" : NotificarA = "" : RefCrediproveedor = "" + CveProveedor = -1 : CvePersonal = -1 : CveCuentaDeposito = 0 + Ruta = UsuarioActual.Empresa.Ruta + + PagueseA = ObjIE.PagueseA + Folio = ObjIE.Folio + Importe = ObjIE.Importe + CveTipoTransaccion = ObjIE.CveTipoTransaccion + Banco = ObjIE.Banco + NumCuenta = ObjIE.DepositoCuenta + If NumCuenta = "" Then NumCuenta = ObjIE.DepositoCIE + CLABE = ObjIE.DepositoCLABE + If CLABE = "" Then CLABE = ObjIE.DepositoReferencia + NoSucursal = ObjIE.DepositoSucursal + RefCrediproveedor = ObjIE.DepositoRefCrediProveedor + TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda)) + FechaExpedicion = ObjIE.FechaDocumento + Observacion = ObjIE.Observaciones + UsuarioRegistro = ObjIE.UsuarioNombre + SubProyecto = ObjIE.SubProyecto + AbonoCuenta = If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "") + NotificarA = ObjIE.NotificarA + tIdPoliza = ObjIE.IDPoliza + + Dim PreP As New ClsContabilidad + If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then + If PreP.DtResultados.Rows.Count > 0 Then + CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero + CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero + + IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA + + If CveProveedor > 0 Then + Dim Prov As New ClsCompProveedores + If Prov.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then + If Prov.DtResultados.Rows.Count > 0 Then + RFC = Prov.DtResultados.Rows(0)("RFC").ToString + Correo = Prov.DtResultados.Rows(0)("ContactoMail").ToString + End If + End If + Prov.Dispose() + End If + + If CvePersonal > 0 Then + Dim RH As New ClsRH + If RH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then + If RH.DtResultados.Rows.Count > 0 Then + Correo = RH.DtResultados.Rows(0)("Correo").ToString + Banco = RH.DtResultados.Rows(0)("Banco").ToString + NumCuenta = RH.DtResultados.Rows(0)("BancoNumCuenta").ToString + CLABE = RH.DtResultados.Rows(0)("CLABE").ToString + End If + + + End If + + RH.Dispose() + + End If + End If + End If + PreP.Dispose() + + + params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy"))) + params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio))) + params.Add(New ReportParameter("PagueseA", PagueseA)) + params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}")) + params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper)) + params.Add(New ReportParameter("Banco", Banco)) + params.Add(New ReportParameter("NumCuenta", NumCuenta)) + params.Add(New ReportParameter("CLABE", CLABE)) + params.Add(New ReportParameter("Concepto", Observacion)) + params.Add(New ReportParameter("Factura", "")) + params.Add(New ReportParameter("RFC", RFC)) + params.Add(New ReportParameter("IVA", $"$ {IVA.ToString("N2")}")) + params.Add(New ReportParameter("NumSucursal", NoSucursal)) + params.Add(New ReportParameter("Correo", Correo)) + params.Add(New ReportParameter("Telefono", Telefono)) + params.Add(New ReportParameter("NotifiqueA", NotificarA)) + params.Add(New ReportParameter("Obra", SubProyecto)) + params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro)) + params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString)) + + If UsuarioActual.CveEmpresa = 66 Then + params.Add(New ReportParameter("RefCrediproveedor", RefCrediproveedor)) + End If + + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta)) + If Archivo.Exists Then + ImprimirPDF(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("Transferencia-{0}", CveIE)) + Else + ImprimirPDF("Empresas\Grales\Formatos\Transferencia.rdlc", DtDetalle, params, String.Format("Transferencia-{0}", CveIE)) + End If + + ElseIf CveTipoTransaccion.Contiene(6) Then + 'IMPRESION DE FORMATO DE IE PAGO EN EFECTIVO PARA COMPU - VIATICOS + Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = "" + Dim Ruta As String = UsuarioActual.Empresa.Ruta + Dim FechaExpedicion As Date = Now + Dim Importe As Double + Dim FormatoCheque As String = "" + + DtDetalle = Nothing + + PagueseA = ObjIE.PagueseA + Folio = ObjIE.Folio + Importe = ObjIE.Importe + CveTipoTransaccion = ObjIE.CveTipoTransaccion + + TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda)) + Observacion = ObjIE.Observaciones + UsuarioRegistro = ObjIE.UsuarioNombre + + params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy"))) + params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio))) + params.Add(New ReportParameter("PagueseA", PagueseA)) + params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}")) + params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper)) + + params.Add(New ReportParameter("Concepto", Observacion)) + params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro)) + params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString)) + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta)) + If Archivo.Exists Then + ImprimirPDF(String.Format("{0}Formatos\ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("PagoEfectivo-{0}", CveIE)) + 'Else + ' ImprimirPDF("Empresas\Grales\Formatos\ComprobanteEgreso.rdlc", DtDetalle, params, String.Format("PagoEfectivo-{0}", CveIE)) + End If + End If + + ObjIE.Dispose() + + End Sub + + Private Sub ImprimeMov(CveIE As Integer) + Dim ObjIE As New ClsBancos() + Dim DtGvRH As New DataTable + Dim DtComprobacion As New DataTable + Dim ParamComprobacion As New DataTable + + 'Movimientos Relacionados de Comprobacion - Hijo + If ObjIE.GetBancosIEMovimientosHijo(CveIE, UsuarioActual.CveEmpresa) Then + DtGvRH = ObjIE.DtResultados + End If + + If DtGvRH IsNot Nothing AndAlso DtGvRH.Rows.Count > 0 Then + + If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then + ParamComprobacion = ObjIE.DtResultados + End If + + Dim ObjMov As New ClsMovimientos + For Each dr As DataRow In DtGvRH.Rows + If ObjMov.GetPersonalCajaChica(UsuarioActual.CveEmpresa, dr("CveCompra").ToString.ToEntero) Then + DtComprobacion.Merge(ObjMov.DtResultados.FiltraParametros("CveCompra =" + dr("CveCompra").ToString)) + End If + Next + ObjMov.Dispose() + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)) + 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 Archivo.Exists Then + + If UsuarioActual.CveEmpresa = 72 Then + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString)) + params.Add(New ReportParameter("CveCajaChica", DtComprobacion.Rows(0)("CveCajaChica").ToString)) + params.Add(New ReportParameter("CveFyE", "0")) ' + + params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString)) + params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString)) + params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString)) + params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString)) + params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString)) + params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString)) + + ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF") + Else + params.Add(New ReportParameter("Numero", "")) ' + params.Add(New ReportParameter("Anio", DtComprobacion.FiltraParametros("CveCompra > 0").MAX("Fecha").ToDate.Year.ToString)) + params.Add(New ReportParameter("Nombre", DtComprobacion.MAX("SubProyecto"))) + params.Add(New ReportParameter("Fecha", Now.Date.ToString)) + params.Add(New ReportParameter("Elaboro", "")) + params.Add(New ReportParameter("Autorizo", "")) + params.Add(New ReportParameter("ElaboroPuesto", "")) + params.Add(New ReportParameter("AutorizoPuesto", "")) + ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion.FiltraParametros("CveCompra > 0"), params, String.Format("IE{0}", CveIE), RDSName:="DsCompras") + End If + Else + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString)) + + params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString)) + params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString)) + params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString)) + params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString)) + params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString)) + params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString)) + params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString)) + + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF") + End If + Else + If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then + If ObjIE.DtResultados.Rows.Count > 0 Then + + Dim reportDataSetsList As New List(Of ReportDataSource) + + Dim dtMovs As New DataTable + Dim Mov As New ClsContabilidad + If Mov.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then + + dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312)") + + If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then + 'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES + For Each Dr As DataRow In dtMovs.Rows + Dr("Importe") = Dr("ImporteMN").ToString.ToDecimal + Dr("ImporteNC") = Dr("ImporteNC").ToString.ToDecimal * Dr("TC").ToString.ToDecimal + Dr("Total") = Dr("Total").ToString.ToDecimal * Dr("TC").ToString.ToDecimal + Dr("Saldo") = Dr("Saldo").ToString.ToDecimal * Dr("TC").ToString.ToDecimal + Next + End If + + End If + Mov.Dispose() + Dim rds = New ReportDataSource("DataSet1", dtMovs) + reportDataSetsList.Add(rds) + + Dim dtnc As New DataTable + Dim ObjCompra As New ClsCompras() + If ObjCompra.GetComprasNotasCredito(-1, -1, CveIE) Then + dtnc = ObjCompra.DtResultados + End If + ObjCompra.Dispose() + Dim rds2 = New ReportDataSource("DataSet2", dtnc) + reportDataSetsList.Add(rds2) + dtnc.Dispose() + + Dim paramList As New List(Of ReportParameter) + With paramList + 'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + Dim LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa) + Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)) + .Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + .Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) + .Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + .Add(New ReportParameter("Cuenta", ObjIE.NumCuenta, True)) + .Add(New ReportParameter("Fecha", ObjIE.FechaDocumento.ToString("dd/MM/yyyy"), True)) + .Add(New ReportParameter("Paguese", ObjIE.PagueseA.Trim, True)) + .Add(New ReportParameter("Importe", ObjIE.Importe.ToString, True)) + .Add(New ReportParameter("Observaciones", ObjIE.Observaciones, True)) + .Add(New ReportParameter("Folio", ObjIE.Folio, True)) + .Add(New ReportParameter("MonedaAbreviatura", ObjIE.MonedaAbreviatura, True)) + + + If Imagen.Exists Then + .Add(New ReportParameter("LogoPath", logouri)) + Else + .Add(New ReportParameter("LogoPath", "")) + End If + + End With + dtMovs.Dispose() + + ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF") + + End If + + End If + End If + + DtGvRH.Dispose() + DtComprobacion.Dispose() + ParamComprobacion.Dispose() + + ObjIE.Dispose() + End Sub + +#End Region + +#Region "OP = RECIBO DE PAGOS" + Private Sub ImprimirReciboDePagos(CveIE As Integer, CveVenta As Integer) + + PDFReciboDePagos(CveVenta, CveIE, -1) + + End Sub +#End Region + +#Region "OP = VTA - PyME" + + ' 04/05/2018 - Pruebas de impresion de factura PyME + Private Sub GeneraPDFVtaPyMe(Venta As Modelos.Factura, Optional Formato As String = "PDF") + Dim Directorio1 As String = String.Format("{0}Formatos\Factura.mrt", UsuarioActual.Empresa.Ruta) + Dim File As FileInfo = New FileInfo(Directorio1) + + If File.Exists Then + Dim Reporte As StiReport = New StiReport() + Reporte.Load(Directorio1) + Reporte.Dictionary.DataSources.Clear() + + Dim ds As DataSet = New DataSet() + Venta.DtDetalle.TableName = "Datos" + + ds.Tables.Add(Venta.DtDetalle) + + Reporte.RegData(ds) + + Reporte.Dictionary.Variables("Empresa").Value = UsuarioActual.Empresa.Empresa + + Reporte.Dictionary.Variables("Tipo").Value = "Ingreso" + Reporte.Dictionary.Variables("RFC").Value = UsuarioActual.Empresa.RFC + Reporte.Dictionary.Variables("Serie").Value = Venta.Serie + Reporte.Dictionary.Variables("Folio").Value = Venta.Folio.ToString() + + Reporte.Dictionary.Variables("ClienteNombre").Value = Venta.Cliente.Nombre + Reporte.Dictionary.Variables("ClienteDireccion").Value = Venta.Cliente.Direccion + Reporte.Dictionary.Variables("ClienteLugar").Value = Venta.Cliente.Ciudad + Reporte.Dictionary.Variables("ClienteRFC").Value = Venta.Cliente.RFC + + Reporte.Dictionary.Variables("DomicilioExpedicion").Value = Venta.SubProyecto.Direccion + + Dim SubtTotal As Double = (Venta.DtDetalle.SUM("PU") * Venta.DtDetalle.SUM("Cantidad")) '* 0.16 lleva el IVA? + Dim IVA As Double = SubtTotal * 0.16 'lleva IVA? + Dim Total As Double = SubtTotal + IVA + + 'Reporte.Dictionary.Variables("Importe").Value = + Reporte.Dictionary.Variables("ImporteLetra").Value = Total.Texto2Letras() + + Reporte.Dictionary.Variables("SubTotal").Value = SubtTotal.ToString() + Reporte.Dictionary.Variables("IVA").Value = IVA.ToString() + Reporte.Dictionary.Variables("Total").Value = Total.ToString() + + Reporte.Dictionary.Variables("UsoCFDI").Value = Venta.UsoCFDI + Reporte.Dictionary.Variables("MetodoPago").Value = Venta.MetodoPago33 + Reporte.Dictionary.Variables("FormaPago").Value = Venta.FormaPago33 + + Reporte.Dictionary.Variables("QR").Value = "lajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsad" + Reporte.Dictionary.Variables("SelloCFDI").Value = "lajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsadlajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsadlajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsad" + Reporte.Dictionary.Variables("SelloSAT").Value = "lajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsad" + Reporte.Dictionary.Synchronize() + + StiReportResponse.ResponseAsPdf(Me, Reporte) + Else + RegistraScript("alert('No hay un formato de factura predefinido,favor de comunicar a soporte tecnico')") + End If + End Sub +#End Region + +#Region "OP = ENTREGAS - Entregas por realizar" + Public Sub ImprimeEntregasPorRealizar(CveAsignacionEntrega As Long, pUsuarioEntregar As String) + Dim Correcto As Boolean = False + Dim DtPaqueteriasGuias As DataTable = Nothing + Dim ObjGeneral As New ClsGenerales + If ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa, CveAsignacionEntrega) Then + DtPaqueteriasGuias = ObjGeneral.DtResultados + Correcto = True + End If + ObjGeneral.Dispose() + If Correcto Then + Dim RepParams As New List(Of ReportParameter) + RepParams.Add(New ReportParameter("Fecha", DateTime.Today.ToString())) + RepParams.Add(New ReportParameter("AsignadoA", pUsuarioEntregar)) + RepParams.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + + ImprimirPDF($"{UsuarioActual.Empresa.Ruta}Formatos\EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios") + End If + + End Sub +#End Region + +#Region "OP = Etiqueta - Etiquetas de recepcion" + Private Sub ImprimirEtiqueta(CveMovimiento As Integer, Modalidad As String) + + Dim ObjInventarios As New ClsInventarios + Dim PS As String = "" + Dim All As Byte() + Using ms As New MemoryStream + Using d As New Document + Using Copy As New PdfCopy(d, ms) + d.Open() + If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then + If ObjInventarios.DtResultados IsNot Nothing Then + For Each DetalleRow As DataRow In ObjInventarios.DtResultados.Rows + Dim CvePS As Integer = DetalleRow.Item("CvePS").ToString.ToEntero + Dim Lote As String = DetalleRow.Item("Lote").ToString + Dim FechaCaducidad As Date = DetalleRow.Item("FechaCaducidad").ToString.ToDate + PS = String.Format("{0} - {1}", DetalleRow.Item("Codigo").ToString, DetalleRow.Item("PS").ToString) + If Modalidad = "Individual" Then + Dim reporteByte As Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS) + + Dim reader As New PdfReader(reporteByte) + Dim Paginas As Integer = reader.NumberOfPages + Dim Contador As Integer = 0 + While Contador < Paginas + Contador += 1 + Copy.AddPage(Copy.GetImportedPage(reader, Contador)) + End While + Else + Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1 + + For contador As Integer = 0 To Cant + Dim reporteByte As Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS) + + Dim reader As New PdfReader(reporteByte) + Dim Paginas As Integer = reader.NumberOfPages + Dim Cont As Integer = 0 + While Cont < Paginas + Cont += 1 + Copy.AddPage(Copy.GetImportedPage(reader, Cont)) + End While + Next + End If + Next + End If + End If + d.Close() + + End Using + End Using + All = ms.ToArray() + End Using + ImprimirbytesPDF(All, PS.ToString) + + + If Modalidad = "Individual" Then + Else + + End If + ObjInventarios.Dispose() + End Sub + + Private Sub ImprimirEtiqueta2(CvePS As Integer, PS As String, CveAlmacen As String, Modalidad As String) + + Dim ObjInventarios As New ClsInventarios + + Dim All As Byte() + Using ms As New MemoryStream + Using d As New Document + Using Copy As New PdfCopy(d, ms) + d.Open() + If ObjInventarios.GetExistenciasCaducidad(CvePS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveAlmacen.ToString) Then + If ObjInventarios.DtResultados IsNot Nothing Then + For Each DetalleRow As DataRow In ObjInventarios.DtResultados.Rows + Dim Lote As String = DetalleRow.Item("Lote").ToString + Dim FechaCaducidad As Date = DetalleRow.Item("FechaCaducidad").ToString.ToDate + If Modalidad = "Individual" Then + Dim reporteByte As Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS) + + Dim reader As New PdfReader(reporteByte) + Dim Paginas As Integer = reader.NumberOfPages + Dim Contador As Integer = 0 + While Contador < Paginas + Contador += 1 + Copy.AddPage(Copy.GetImportedPage(reader, Contador)) + End While + Else + Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1 + + For contador As Integer = 0 To Cant + Dim reporteByte As Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS) + + Dim reader As New PdfReader(reporteByte) + Dim Paginas As Integer = reader.NumberOfPages + Dim Cont As Integer = 0 + While Cont < Paginas + Cont += 1 + Copy.AddPage(Copy.GetImportedPage(reader, Cont)) + End While + Next + End If + Next + End If + End If + d.Close() + + End Using + End Using + All = ms.ToArray() + End Using + ImprimirbytesPDF(All, PS.ToString) + + + If Modalidad = "Individual" Then + Else + + End If + ObjInventarios.Dispose() + End Sub + + Private Function GenerarEtiqueta(CvePS As Integer, Lote As String, FechaCaducidad As Date, PS As String) As Byte() + Dim QrDescarga As String = "" + Dim Cfdi As New RVCFDI33.GeneraCFDI() + Dim b As Byte() = Cfdi.ConvertirQrCode(String.Format("?CvePS={0}&Lote={1}&Fecha={2}", CvePS, Lote, Format(FechaCaducidad, "dd/MM/yyyy").ToString())) + QrDescarga = Convert.ToBase64String(b) + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("QR", QrDescarga)) + params.Add(New ReportParameter("PS", PS)) + params.Add(New ReportParameter("Lote", Lote)) + params.Add(New ReportParameter("FechaCad", FechaCaducidad.ToString("dd/MM/yyyy"))) + Return StreamPDF("Empresas/Grales/Formatos/EtiquetaDeRecepcion.rdlc", New DataTable, params) + End Function +#End Region + +#Region "OP = AJUSTE" + Private Sub ImprimirPDFAjuste(CveGarantiaDetalle As Integer) + ' Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim RowAjuste As DataRow = Nothing + + Using ObjAcum As New ClsAcumuladores + If ObjAcum.GetFoliosGarantiasDetalle(-1, CveGarantiaDetalle) Then + If ObjAcum.DtResultados.Rows.Count > 0 Then + RowAjuste = ObjAcum.DtResultados.Rows(0) + End If + End If + End Using + + Dim CvePSAjuste As Integer = RowAjuste("CvePS").ToString.ToEntero() + Dim CveCliente As Integer = RowAjuste("CveCliente").ToString.ToEntero() + Dim CveClienteDistribuidor As Integer = RowAjuste("CveClienteDistribuidor").ToString.ToEntero() + Dim Consec As String = RowAjuste("Consecutivo").ToString + Dim FolioGarantia As String = RowAjuste("FolioGarantia").ToString + Dim FechaAjuste As DateTime = RowAjuste("FechaVenta").ToString.ToDateTime() + Dim FechaReclamacion As DateTime = RowAjuste("FechaReclamacion").ToString.ToDateTime() + Dim TipoDefecto As String = RowAjuste("TipoDefecto").ToString + Dim CveTipoUso As Integer = RowAjuste("CveTipoUso").ToString.ToEntero() + Dim CodigoEnsamble As String = RowAjuste("CodigoEnsamble").ToString + Dim CodigoLinea As String = RowAjuste("CodigoLinea").ToString + Dim CodigoInspeccion As String = RowAjuste("CodigoInspeccion").ToString + + Dim MesesUso As String = "0" + Dim PorcentajeAjuste As String = RowAjuste("PorcentajeAjuste").ToString + Dim BCIAjuste As String = RowAjuste("BCIAjuste").ToString + Dim Etiqueta As String = RowAjuste("Etiqueta").ToString + + Dim Año As String = RowAjuste("Año").ToString + Dim Comprobante As String = RowAjuste("Comprobante").ToString + + Dim ModeloAuto As String = RowAjuste("ModeloAuto").ToString + Dim MarcaAuto As String = RowAjuste("MarcaAuto").ToString + Dim CodigoTD As String = RowAjuste("CodigoTD").ToString + + Dim MarcaPS As String = "" + Dim CveMarca As Integer = -1 + + Dim FechaI As Date = FechaAjuste.AddDays(1) + Dim FechaF As Date = FechaReclamacion + + Dim Dia As Integer = FechaI.Day + Try + 'validación adicional, para saber si el mes tiene 31 días y el actua es menor. + If FechaI.Day > Today.LastDayOfMonth.Day Then Dia = Today.LastDayOfMonth.Day + Dim FechaT As Date = String.Format("{0}/{1}/{2}", Dia, FechaF.Month, FechaF.Year).ToDate 'armo la fecha con el día del mes actual + + Dim MesesTrascurridos As Integer = Math.Round(DateDiff(DateInterval.Day, FechaI, FechaT) / 30.4, 2).ToEntero 'saco los meses y lo redondeo + + If FechaT > FechaF Then + 'todavía está en el mes actual. + MesesTrascurridos = MesesTrascurridos + Else + MesesTrascurridos = MesesTrascurridos + 1 + End If + + MesesUso = MesesTrascurridos.ToString + + Catch ex As Exception + OnError("Ocurrió un error al calcular los meses de uso", ex) + End Try + + + Dim ObjPS As New ClsProductosServicios + If ObjPS.GetPS(CvePSAjuste, -1, UsuarioActual.CveEmpresa) Then + MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", CvePSAjuste)) + End If + ObjPS.Dispose() + + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim DtDatos As New DataTable + + Dim params As New List(Of ReportParameter) + + + 'Informacion Distribuidor + If (CveClienteDistribuidor > 0) Then + + Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveClienteDistribuidor)) + Dim CiudadEstado As String = "" + Dim Telefono As String = "" + Dim Nombre As String = "" + + If DatosClienteSeleccionado IsNot Nothing Then + CiudadEstado = String.Format("{0}, {1}", DatosClienteSeleccionado("Ciudad"), DatosClienteSeleccionado("Estado")) + Telefono = DatosClienteSeleccionado("Telefono").ToString + Nombre = DatosClienteSeleccionado("Nombre").ToString + End If + + params.Add(New ReportParameter("NombreDistribuidor", Nombre)) + params.Add(New ReportParameter("CiudadEstado", CiudadEstado)) + params.Add(New ReportParameter("TelCliente", Telefono)) + End If + + + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Consec", Consec)) + params.Add(New ReportParameter("FolioAcuse", FolioGarantia)) + + 'Informacion de Garantia o ajuste + params.Add(New ReportParameter("FechaInst", FechaAjuste.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Fecha", FechaReclamacion.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Defecto", TipoDefecto)) + params.Add(New ReportParameter("MesesUso", MesesUso)) + params.Add(New ReportParameter("PorcentajeAjuste", PorcentajeAjuste)) + + 'Informacion Acumulador + params.Add(New ReportParameter("CodEnsamble", CodigoEnsamble)) + params.Add(New ReportParameter("CodLinea", CodigoLinea)) + params.Add(New ReportParameter("CodInspeccion", CodigoInspeccion)) + params.Add(New ReportParameter("Tipo", BCIAjuste)) + params.Add(New ReportParameter("Marca", MarcaPS)) + params.Add(New ReportParameter("Etiqueta", Etiqueta)) + + 'Informacion Vehiculo + params.Add(New ReportParameter("MarcaAuto", MarcaAuto)) + params.Add(New ReportParameter("TipoAuto", ModeloAuto)) + + 'Informacion Consumidor + If (CveCliente > 0) Then + + Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveCliente)) + + Dim Nombre As String = "" + Dim Ciudad As String = "" + Dim Estado As String = "" + Dim Direccion As String = "" + Dim Telefono As String = "" + + If DatosClienteSeleccionado IsNot Nothing Then + Nombre = DatosClienteSeleccionado("Nombre").ToString + Ciudad = DatosClienteSeleccionado("Ciudad").ToString + Estado = DatosClienteSeleccionado("Estado").ToString + Direccion = DatosClienteSeleccionado("Direccion").ToString + Telefono = DatosClienteSeleccionado("Telefono").ToString + End If + + params.Add(New ReportParameter("NombreCliente", Nombre)) + params.Add(New ReportParameter("Direccion", Direccion)) + params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado))) + params.Add(New ReportParameter("TelConsumidor", Telefono)) + End If + + params.Add(New ReportParameter("Anio", Año)) + params.Add(New ReportParameter("Comprobante", Comprobante)) + params.Add(New ReportParameter("CodigoTD", CodigoTD)) + + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF", Content_Disposition:="inline") + End Sub + + Private Sub ImprimirPDFAjuste(CvePSAjuste As Integer, CveCliente As Integer, CveClienteDistribuidor As Integer, Consec As String, FolioGarantia As String, FechaAjuste As DateTime, FechaReclamacion As DateTime, + TipoDefecto As String, CveTipoUso As Integer, CodigoEnsamble As String, CodigoLinea As String, CodigoInspeccion As String, PorcentajeAjuste As String, + BCIAjuste As String, Etiqueta As String, Año As String, Comprobante As String, ModeloAuto As String, MarcaAuto As String, CodigoTD As String) + + Dim MesesUso As String = "0" + + Dim MarcaPS As String = "" + Dim CveMarca As Integer = -1 + + Dim FechaI As Date = FechaAjuste.AddDays(1) + Dim FechaF As Date = FechaReclamacion + + Dim Dia As Integer = FechaI.Day + Try + 'validación adicional, para saber si el mes tiene 31 días y el actua es menor. + If FechaI.Day > Today.LastDayOfMonth.Day Then Dia = Today.LastDayOfMonth.Day + Dim FechaT As Date = String.Format("{0}/{1}/{2}", Dia, FechaF.Month, FechaF.Year).ToDate 'armo la fecha con el día del mes actual + + Dim MesesTrascurridos As Integer = Math.Round(DateDiff(DateInterval.Day, FechaI, FechaT) / 30.4, 2).ToEntero 'saco los meses y lo redondeo + + If FechaT > FechaF Then + 'todavía está en el mes actual. + MesesTrascurridos = MesesTrascurridos + Else + MesesTrascurridos = MesesTrascurridos + 1 + End If + + MesesUso = MesesTrascurridos.ToString + + Catch ex As Exception + OnError("Ocurrió un error al calcular los meses de uso", ex) + End Try + + + Dim ObjPS As New ClsProductosServicios + If ObjPS.GetPS(CvePSAjuste, -1, UsuarioActual.CveEmpresa) Then + MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", CvePSAjuste)) + End If + ObjPS.Dispose() + + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim DtDatos As New DataTable + + Dim params As New List(Of ReportParameter) + + + 'Informacion Distribuidor + If (CveClienteDistribuidor > 0) Then + + Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveClienteDistribuidor)) + Dim CiudadEstado As String = "" + Dim Telefono As String = "" + Dim Nombre As String = "" + + If DatosClienteSeleccionado IsNot Nothing Then + CiudadEstado = String.Format("{0}, {1}", DatosClienteSeleccionado("Ciudad"), DatosClienteSeleccionado("Estado")) + Telefono = DatosClienteSeleccionado("Telefono").ToString + Nombre = DatosClienteSeleccionado("Nombre").ToString + End If + + params.Add(New ReportParameter("NombreDistribuidor", Nombre)) + params.Add(New ReportParameter("CiudadEstado", CiudadEstado)) + params.Add(New ReportParameter("TelCliente", Telefono)) + End If + + + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Consec", Consec)) + params.Add(New ReportParameter("FolioAcuse", FolioGarantia)) + + 'Informacion de Garantia o ajuste + params.Add(New ReportParameter("FechaInst", FechaAjuste.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Fecha", FechaReclamacion.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Defecto", TipoDefecto)) + params.Add(New ReportParameter("MesesUso", MesesUso)) + params.Add(New ReportParameter("PorcentajeAjuste", PorcentajeAjuste)) + + 'Informacion Acumulador + params.Add(New ReportParameter("CodEnsamble", CodigoEnsamble)) + params.Add(New ReportParameter("CodLinea", CodigoLinea)) + params.Add(New ReportParameter("CodInspeccion", CodigoInspeccion)) + params.Add(New ReportParameter("Tipo", BCIAjuste)) + params.Add(New ReportParameter("Marca", MarcaPS)) + params.Add(New ReportParameter("Etiqueta", Etiqueta)) + + 'Informacion Vehiculo + params.Add(New ReportParameter("MarcaAuto", MarcaAuto)) + params.Add(New ReportParameter("TipoAuto", ModeloAuto)) + + 'Informacion Consumidor + If (CveCliente > 0) Then + + Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveCliente)) + + Dim Nombre As String = "" + Dim Ciudad As String = "" + Dim Estado As String = "" + Dim Direccion As String = "" + Dim Telefono As String = "" + + If DatosClienteSeleccionado IsNot Nothing Then + Nombre = DatosClienteSeleccionado("Nombre").ToString + Ciudad = DatosClienteSeleccionado("Ciudad").ToString + Estado = DatosClienteSeleccionado("Estado").ToString + Direccion = String.Format("{0} {1}{2} COL. {3}", DatosClienteSeleccionado("Direccion"), DatosClienteSeleccionado("NoInt"), DatosClienteSeleccionado("NoExt"), DatosClienteSeleccionado("Colonia")) + Telefono = DatosClienteSeleccionado("Telefono").ToString + End If + + params.Add(New ReportParameter("NombreCliente", Nombre)) + params.Add(New ReportParameter("Direccion", Direccion)) + params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado))) + params.Add(New ReportParameter("TelConsumidor", Telefono)) + End If + + params.Add(New ReportParameter("Anio", Año)) + params.Add(New ReportParameter("Comprobante", Comprobante)) + params.Add(New ReportParameter("CodigoTD", CodigoTD)) + + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF", Content_Disposition:="inline") + End Sub +#End Region + +End Class diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 4c6f38c09..39325be4d 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -242,39 +242,129 @@ + + + +
- -
- - - - - -
- -
-
- - - - + + +
+
+
+
+ + +
+
+
+
+
+
+
+ + +
+ + +
+ +
+ + + + + + +
+ + + <%--
--%> + +
+
+ + + + + + + + + + + + +
+ + + <%--
--%> + +
+ + +
+ + + + +
- - - - - - -
- -
- + +
+
+
+
+ + +
+
+
+
+
+
+
+ +
+ + +
+ +
+ + +
+ +
+ + +
+ + + + +
+
+ + + + + + + + + + + + +
+
@@ -285,6 +375,7 @@
+
@@ -292,6 +383,9 @@
+ + + diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 9879cf3e2..dca104de5 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -432,6 +432,12 @@ Partial Class ContabilidadC_RegPrePolizaS TipoPoliza = DdlTipoPoliza.SelectedItem.Text Folio = dr("FolioPoliza").ToString + TxtFolio.Text = dr("FolioPoliza").ToString + TxtUsuarioElaboro.Text = dr("Usuario").ToString + TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy") + TxtEstatus.Text = If(Boolean.Parse(dr("Estatus").ToString), "Activa", "Inactiva") + + If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then 'DivAgregarConceptos.Visible = True LnkAddConcepto.Visible = True @@ -2341,18 +2347,27 @@ Partial Class ContabilidadC_RegPrePolizaS params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString)) params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString)) params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString)) - params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) + + If UsuarioActual.CveEmpresa.Contiene(141) Then + params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToString("dd/MM/yyyy hh:mm:ss"))) + Else + params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) + End If + + 'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString)) 'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString)) params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString)) params.Add(New ReportParameter("Moneda", "")) params.Add(New ReportParameter("CodigoPostal", "")) - If UsuarioActual.CveEmpresa = 119 Then + + If UsuarioActual.CveEmpresa.Contiene(119, 141) Then params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre"))) End If - If UsuarioActual.CveEmpresa = 140 Then + If UsuarioActual.CveEmpresa.Contiene(140, 141) Then params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) End If + If Archivo.Exists Then ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc" Else diff --git a/CxC/RepCxC.aspx b/CxC/RepCxC.aspx index 5baadfd42..da8b8d323 100644 --- a/CxC/RepCxC.aspx +++ b/CxC/RepCxC.aspx @@ -347,7 +347,7 @@
- +
diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc index 3de89a586..0c8dc838c 100644 --- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc +++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc @@ -158,14 +158,14 @@ - + true true - =Fields!CodigoMaterialPeligroso.Value + =Fields!CveMaterialPeligroso.Value - CodigoMaterialPeligroso + CveMaterialPeligroso - - - 2pt 2pt 2pt @@ -1985,7 +1982,7 @@ Textbox3 - 2.33775cm + 2.27425cm 0.15116in 0.5cm 7.5137in @@ -2159,9 +2156,9 @@ Textbox2 - 1.13111in - 9.86403cm - 1.08451in + 1.09361in + 9.91989cm + 0.95951in 3.78138in 11 - - - 2pt 2pt 2pt @@ -3118,6 +3112,128 @@ 2pt + + true + true + + + + + Remolque 1 + + + + Placa: + + + + =Parameters!RemolquePlaca1.Value + + + + Tipo Rem: + + + + =Parameters!RemolqueSubtimo1.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Remolque 2 + + + + Placa: + + + + =Parameters!RemolquePlaca2.Value + + + + Tipo Rem: + + + + =Parameters!RemolqueSubtimo2.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + 7.34222in - - - Textbox11 - - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 4 - - - - - - - - - 0.6cm - - - - - true - true - - - - - Manifiesto N° - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!NoEmbarque.Value - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!SubProyecto.Value - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - 0.6cm - - - - - true - true - - - - - Fecha Embarque: - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - Hora Salida: - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - 0.6cm - - - - - true - true - - - - - =Parameters!Fecha.Value - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - =Parameters!Hora.Value - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - 0.6cm - - - - - true - true - - - - - F. F. Registration N° - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - - - - - - - - - - - - - - - - - - - 0.3175cm - 10.75218cm - 3cm - 8.58479cm - - - - - - Embedded - logojam - FitProportional - 0.20354cm - 0.19717cm - 2.79646cm - 4.89479cm - 1 - - - - - - - - - 1.97083cm - - - 4.15334cm - - - 0.38333cm - - - 2.68521cm - - - 5.07938cm - - - - - 0.6cm - - - - - true - true - - - - - =Parameters!NoBultos.Value - - - - - - - Textbox4 - - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Bultos Manifestados - - - - - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!NoKgManifiesto.Value - - - - - - - Textbox8 - - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Kgs. Manifestados - - - - - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.38833cm - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - =Parameters!NoPallets.Value - - - - - - - Textbox6 - - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Pallets Manifestados - - - - - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - - 18.67696cm - 3.27925cm - 1.58833cm - 14.27209cm - 2 - - - - - - - - - 2.60646cm - - - 2.39354cm - - - 2.07667cm - - - 2.07667cm - - - 0.38333cm - - - 2.92334cm - - - 1.97084cm - - - 2.31479cm - - - 2.34125cm - - - - - 0.6cm - - - - - true - true - - - - - ORIGEN / SHIPPER - - - - - - - Textbox264 - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 4 - - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - DESTINO / CONSIGNE - - - - - - - Textbox269 - - 1.5pt - - - Black - - 1.5pt - - - Black - - 1.5pt - - - Black - - 1.5pt - - - Black - - 1.5pt - - 2pt - 2pt - 2pt - 2pt - - - 4 - - - - - - - - - 0.6cm - - - - - true - true - - - - - Embarcador: - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - AGROPECUARIA JAM, S.A. DE C.V. - - - - - - - Textbox256 - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - true - true - - - - - - - - - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Distribuidor: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - GROWER ALLIANCE - - - - - - - Textbox261 - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - 0.6cm - - - - - true - true - - - - - Direccion: - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - CARR. A BAHIA DE KINO KM12 - - - - - - - Textbox247 - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - true - true - - - - - - - - - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Domic.: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - 947 E. FRONTAGE RD. - - - - - - - Textbox252 - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - 0.6cm - - - - - true - true - - - - - Ciudad: - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - HERMOSILLO, SONORA - - - - - - - Textbox238 - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - true - true - - - - - - - - - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Lugar: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - RIO RICO - - - - - - - Textbox243 - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - 0.6cm - - - - - true - true - - - - - Reg. Fed. Con.: - - - - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - AJA9809264V2 - - - - - - - Textbox229 - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - true - true - - - - - - - - - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Reg. Fed. Con.: - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox234 - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Mercado: - - - - - - - Textbox55 - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Extranjero - - - - - - - Textbox60 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.30896cm - - - - - true - true - - - - - - - - - - - - Textbox177 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox178 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox179 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox180 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox182 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox183 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox184 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox217 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - TRANSPORTE / TRANSPORTATION - - - - - - - Textbox132 - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 9 - - - - - - - - - - - - - - 0.6cm - - - - - true - true - - - - - Linea de Trans: - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - LCT - - - - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Reg. Fed. Con.: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - 0.6cm - - - - - true - true - - - - - Chofer: - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!Chofer.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - N° de Factura: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - 00002476 - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Medio: - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Trailer - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - N° 03 - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Temperatura: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!Temperatura.Value - - - - °F - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - N° Placa Camion: - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!CamPlaca.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Marca: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!Camion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - N° de Caja: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!Remolque1.Value - - - - - - - Textbox9 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Placa Caja: - - - - - - - Textbox158 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!Rem1Placa.Value - - - - - - - Textbox10 - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - SCAC: - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Longitud Caja: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox163 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox164 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox223 - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - CAAT: - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - 32VU - - - - - - - Textbox188 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - N° Sello CTPAT - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox191 - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - 0.6cm - - - - - true - true - - - - - Anticipo Flete: - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Flete: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - 0.00 - - - - - - - Textbox196 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Sellos de Seguridad: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox199 - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - 0.6cm - - - - - true - true - - - - - Observaciones: - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox207 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox208 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox226 - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - true - true - - - - - - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox215 - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox216 - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox227 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.2825cm - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - AGENCIA ADUANAL MEXICANA / MEXICAN CUSTOM - - - - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 4 - - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - AGENCIA ADUANAL AMERICANA / U.S. CUSTOM - - - - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 4 - - - - - - - - - 0.6cm - - - - - true - true - - - - - A. Ad. Mexico - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!AgenciaAduanalMEX.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - true - true - - - - - - - - - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - A. Ad. Mexico - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!AgenciaAduanalUSA.Value - - - - - - - Textbox370 - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - 0.6cm - - - - - true - true - - - - - Reg. Fed. Con.: - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - true - true - - - - - - - - - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Reg. Fed. Con.: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox379 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox380 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox381 - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Domicilio: - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - true - true - - - - - - - - - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Domicilio: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox388 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox389 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox390 - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Lugar: - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - true - true - - - - - - - - - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Lugar: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox397 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox398 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox399 - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Cod. Postal: - - - - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - true - true - - - - - - - - - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cod. Postal: - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox406 - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox407 - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox408 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.36187cm - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox415 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox416 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox417 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 3.49239cm - 0.25008cm - 13.55333cm - 19.08689cm - 3 - - - - - - - - - 2.5cm - - - 2.5cm - - - 5.74021cm - - - 3.69064cm - - - 4.65604cm - - - - - 0.6cm - - - - - true - true - - - - - Pallets - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Bultos - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Descripción - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Etiqueta - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Envase - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - - Black - - 2pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - =Fields!NoPallets.Value - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!NoCajas.Value - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cultivo.Value & " " & Fields!CultivoVariedad.Value - - - 2pt - 2pt - 2pt - 2pt - - - true - - - - - - true - true - - - - - =Fields!Etiqueta.Value - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Envase.Value - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DataSet1 - 17.30058cm - 0.25008cm - 1.2cm - 19.08689cm - 4 - - - - - - 8.07349in - + + + Textbox11 + + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + 0.6cm + + + + + true + true + + + + + Manifiesto N° + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!NoEmbarque.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!SubProyecto.Value + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + Fecha Embarque: + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + Hora Salida: + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + =Parameters!Fecha.Value + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + =Parameters!Hora.Value + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + F. F. Registration N° + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + <USDA REGISTRATION> + + + + + + + Textbox25 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + + + + + + + + + + + + + + + + + + + 0.3175cm + 10.3553cm + 3cm + 8.98167cm + + + + + + Embedded + logojam + FitProportional + 0.20354cm + 0.19717cm + 2.79646cm + 4.89479cm + 1 + + + + + + + + + 1.97083cm + + + 4.15334cm + + + 0.38333cm + + + 2.68521cm + + + 5.07938cm + + + + + 0.6cm + + + + + true + true + + + + + =Parameters!NoBultos.Value + + + + + + + Textbox4 + + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Bultos Manifestados + + + + + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!NoKgManifiesto.Value + + + + + + + Textbox8 + + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Kgs. Manifestados + + + + + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.38833cm + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Parameters!NoPallets.Value + + + + + + + Textbox6 + + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Pallets Manifestados + + + + + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + 18.67696cm + 3.27925cm + 1.58833cm + 14.27209cm + 2 + + + + + + + + + 2.60646cm + + + 2.39354cm + + + 2.07667cm + + + 2.07667cm + + + 0.38333cm + + + 2.92334cm + + + 1.97084cm + + + 2.31479cm + + + 2.34125cm + + + + + 0.6cm + + + + + true + true + + + + + ORIGEN / SHIPPER + + + + + + + Textbox264 + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + DESTINO / CONSIGNE + + + + + + + Textbox269 + + 1.5pt + + + Black + + 1.5pt + + + Black + + 1.5pt + + + Black + + 1.5pt + + + Black + + 1.5pt + + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + 0.6cm + + + + + true + true + + + + + Embarcador: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + AGROPECUARIA JAM, S.A. DE C.V. + + + + + + + Textbox256 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Distribuidor: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + GROWER ALLIANCE + + + + + + + Textbox261 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.6cm + + + + + true + true + + + + + Direccion: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CARR. A BAHIA DE KINO KM12 + + + + + + + Textbox247 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Domic.: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 947 E. FRONTAGE RD. + + + + + + + Textbox252 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.6cm + + + + + true + true + + + + + Ciudad: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + HERMOSILLO, SONORA + + + + + + + Textbox238 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Lugar: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + RIO RICO + + + + + + + Textbox243 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.6cm + + + + + true + true + + + + + Reg. Fed. Con.: + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + AJA9809264V2 + + + + + + + Textbox229 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Reg. Fed. Con.: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox234 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Mercado: + + + + + + + Textbox55 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Mercado.Value + + + + + + + Textbox60 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.30896cm + + + + + true + true + + + + + + + + + + + + Textbox177 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox178 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox179 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox180 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox182 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox183 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox184 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox217 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TRANSPORTE / TRANSPORTATION + + + + + + + Textbox132 + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 9 + + + + + + + + + + + + + + 0.6cm + + + + + true + true + + + + + Linea de Trans: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!LineaTransportacion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Reg. Fed. Con.: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.6cm + + + + + true + true + + + + + Chofer: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Chofer.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + N° de Factura: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!NoFactura.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Medio: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Trailer + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!NumeroTrailer.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Temperatura: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Temperatura.Value + + + + °F + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + N° Placa Camion: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!CamPlaca.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Marca: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Camion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + N° de Caja: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Remolque1.Value + + + + + + + Textbox9 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Placa Caja: + + + + + + + Textbox158 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Rem1Placa.Value + + + + + + + Textbox10 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + SCAC: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!SCAC.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Longitud Caja: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!LongitudCaja.Value + + + + + + + Textbox163 + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + + + + + + + + Textbox223 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + CAAT: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!CAAT.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + N° Sello CTPAT + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox191 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.6cm + + + + + true + true + + + + + Anticipo Flete: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Flete: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 0.00 + + + + + + + Textbox196 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sellos de Seguridad: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox199 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.6cm + + + + + true + true + + + + + Observaciones: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox207 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox208 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox226 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox215 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox216 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox227 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.2825cm + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + AGENCIA ADUANAL MEXICANA / MEXICAN CUSTOM + + + + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + AGENCIA ADUANAL AMERICANA / U.S. CUSTOM + + + + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + 0.6cm + + + + + true + true + + + + + A. Ad. Mexico + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!AgenciaAduanalMEX.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + A. Ad. Mexico + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!AgenciaAduanalUSA.Value + + + + + + + Textbox370 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.6cm + + + + + true + true + + + + + Reg. Fed. Con.: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Reg. Fed. Con.: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox379 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox380 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox381 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Domicilio: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Domicilio: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox388 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox389 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox390 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Lugar: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Lugar: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox397 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox398 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox399 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Cod. Postal: + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cod. Postal: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox406 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox407 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox408 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.36187cm + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox415 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox416 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox417 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 3.49239cm + 0.25008cm + 13.55333cm + 19.08689cm + 3 + + + + + + + + + 2.5cm + + + 2.5cm + + + 5.74021cm + + + 3.69064cm + + + 4.65604cm + + + + + 0.6cm + + + + + true + true + + + + + Pallets + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Bultos + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Etiqueta + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Envase + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!NoPallets.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!NoCajas.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cultivo.Value & " " & Fields!CultivoVariedad.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Etiqueta.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Envase.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 17.30058cm + 0.25008cm + 1.2cm + 19.08689cm + 4 + + + + + + 8.07349in + - - Catálogo de Unidades + + Catálogo de Unidades - - + - +
  • - +
    • - + - + - - + + - - + + - + @@ -57,7 +54,7 @@ - +