diff --git a/AF/AF.aspx b/AF/AF.aspx index 49c50f5fc..81fd169d0 100644 --- a/AF/AF.aspx +++ b/AF/AF.aspx @@ -397,7 +397,7 @@
- + Proyecto:
@@ -411,7 +411,7 @@
- + SubProyecto:
diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index edfc7507a..db5d2faa8 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -275,10 +275,6 @@ Partial Class AF_AF End If - If UsuarioActual.Empresa.GralSoloProyecto Then - RowProyecto.Visible = False - End If - If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.UsaContabilidad Then ActivarRegistroCuentaAF() End If @@ -376,8 +372,8 @@ Partial Class AF_AF CargaTipoActivoFijo() CargaResponsable() CargaEstatusActivoFijo() - 'CargaProyecto() - CargaSubProyecto() + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, lblProyecto, LblSubProyecto) + RowProyecto.Visible = DdlProyecto.Visible CargaCliente() CargaGrupos() CargaMarcas() @@ -460,10 +456,10 @@ Partial Class AF_AF DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1")) End Sub - Private Sub CargaProyecto() - DdlProyecto.DataSource = GlobalDTProyectos(CveEmpresaActual) - DdlProyecto.DataBind() - End Sub + 'Private Sub CargaProyecto() + ' DdlProyecto.DataSource = GlobalDTProyectos(CveEmpresaActual) + ' DdlProyecto.DataBind() + 'End Sub Private Sub CargaEstatusActivoFijo() DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo DdlEstadoActivoFijo.DataBind() diff --git a/AF/CatAF.aspx b/AF/CatAF.aspx index 74b8d8760..3c894d746 100644 --- a/AF/CatAF.aspx +++ b/AF/CatAF.aspx @@ -106,11 +106,19 @@
-
Proyecto:
-
+
+ + Proyecto: + +
+
-
SubProyecto:
+
+ + SubProyecto: + +
diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb index cb8796a01..c74216334 100644 --- a/AF/CatAF.aspx.vb +++ b/AF/CatAF.aspx.vb @@ -88,9 +88,12 @@ Partial Class AF_CatAF DdlEstatus.DataBind() DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1")) - DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.CveEmpresa) - DdlProyecto.DataBind() - DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1")) + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto) + DivProyecto.Visible = LblProyecto.Visible + DivProyectoDdl.Visible = LblProyecto.Visible + 'DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.CveEmpresa) + 'DdlProyecto.DataBind() + 'DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) DdlCliente.DataBind() diff --git a/AF/PopUpBuscarAF.aspx b/AF/PopUpBuscarAF.aspx index c1803d052..7fc99c76c 100644 --- a/AF/PopUpBuscarAF.aspx +++ b/AF/PopUpBuscarAF.aspx @@ -177,15 +177,19 @@ - Proyecto: - + + Proyecto: + + <%-- --%> - SubProyecto: + + SubProyecto: + diff --git a/AF/PopUpBuscarAF.aspx.vb b/AF/PopUpBuscarAF.aspx.vb index 622f71560..864de32d2 100644 --- a/AF/PopUpBuscarAF.aspx.vb +++ b/AF/PopUpBuscarAF.aspx.vb @@ -126,7 +126,11 @@ Partial Class AF_PopUpBuscarAF CargaEstatusActivoFijo() CargaMarcaActivoFijo() 'CargaModeloActivoFijo() - CargaProyecto() + CargarCentrosDeCosto(DdlProyecto, Nothing, LblProyecto, LblSubProyectos) + If Not LblProyecto.Visible Then + tdProyecto.Attributes.Add("style", "display:none") + tdDdlProyecto.Attributes.Add("style", "display:none") + End If CargaSubProyecto() CargaSubTipoActivoFijo() CargaCliente() @@ -236,10 +240,6 @@ Partial Class AF_PopUpBuscarAF DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1")) End Sub - Private Sub CargaProyecto() - DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1) - DdlProyecto.DataBind() - End Sub Private Sub CargaEstatusActivoFijo() DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo DdlEstadoActivoFijo.DataBind() diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx index d5595991a..ee503615a 100644 --- a/Acumuladores/CatFoliosGarantia.aspx +++ b/Acumuladores/CatFoliosGarantia.aspx @@ -250,10 +250,10 @@
+ SubProyecto: -
diff --git a/Acumuladores/CatFoliosGarantia.aspx.vb b/Acumuladores/CatFoliosGarantia.aspx.vb index 778a6275d..4c29e4dbe 100644 --- a/Acumuladores/CatFoliosGarantia.aspx.vb +++ b/Acumuladores/CatFoliosGarantia.aspx.vb @@ -47,10 +47,7 @@ Partial Class Acumuladores_CatFoliosGarantia #Region "Folios Garantía" Private Sub CargaSubProyectos() - DdlSubProyectos.Items.Clear() - DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) - DdlSubProyectos.DataBind() - DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) + CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, lblSubProyecto) End Sub Private Sub CargadatosGvFolioGarantia(EstatusValor As Integer, tipoFolioValor As String) diff --git a/Acumuladores/RepIndicadorDiario.aspx b/Acumuladores/RepIndicadorDiario.aspx index d8060715c..c818314b3 100644 --- a/Acumuladores/RepIndicadorDiario.aspx +++ b/Acumuladores/RepIndicadorDiario.aspx @@ -151,10 +151,10 @@ SubProyecto:
- <%-- + - --%> - + + <%----%>
diff --git a/Acumuladores/RepIndicadorDiario.aspx.vb b/Acumuladores/RepIndicadorDiario.aspx.vb index 362c272d4..31156c0e1 100644 --- a/Acumuladores/RepIndicadorDiario.aspx.vb +++ b/Acumuladores/RepIndicadorDiario.aspx.vb @@ -84,10 +84,8 @@ Partial Class ACumuladores_RepIndicadorDiario Private Sub CargaCombos() - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) - DdlSubProyecto.DataBind() - DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSubProyecto.SelectedValuesIfExist("-1") + CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto) + DdlSubProyecto.SelectedValueExist("-1") End Sub @@ -188,7 +186,7 @@ Partial Class ACumuladores_RepIndicadorDiario If txtFechaF.Text = "" Then FechaFn = "" - Dim SubProyecto = If(DdlSubProyecto.GetSelectedText = "", "", $" SubProyecto: {DdlSubProyecto.GetSelectedText}") + Dim SubProyecto = If(DdlSubProyecto.SelectedItem.Text = "", "", $" SubProyecto: {DdlSubProyecto.SelectedItem.Text}") Dim FechaIF, FechaFF As String diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index da147e2c4..c795ada73 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -4452,7 +4452,8 @@ Public Class ClsBancos Dim RutaComprobante As String = "" If GetBancosIE(CveIENotificar, UsuarioActual.CveEmpresa) Then - RutaComprobante = Comprobante + RutaComprobante = $"{UsuarioActual.Empresa.Ruta}IE/{Comprobante}" + End If @@ -4742,6 +4743,7 @@ Public Class ClsBancos strBody.AppendFormat("
") End If + strBody.Append("
Correo automatizado por SIG ERP www.adsistemas.mx
") strBody.Append("
Favor de no responder a este correo.
") strBody.Append("") diff --git a/App_Code/ClsClasificaciones.vb b/App_Code/ClsClasificaciones.vb index d49f390ca..a321f9f37 100644 --- a/App_Code/ClsClasificaciones.vb +++ b/App_Code/ClsClasificaciones.vb @@ -254,7 +254,7 @@ Public Class ClsClasificaciones Return Retorno End Function - Public Function AddClasificaciones(Clasificacion As String, Codigo As String, IdCuentaGasto As Integer, CuentaGasto As String, IdCuentaCostos As Integer, CuentaCostos As String, IdCuentaIngreso As Integer, CuentaIngreso As String, CveCategoria As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional RequiereSerieLote As Integer = 0, Optional UsoClasificacion As Integer = -1, Optional CveSATPS As Integer = -1, Optional RequiereAFCompra As Boolean = True, Optional RequiereAFInsumo As Boolean = True, Optional RequierePersonal As Boolean = True, + Public Function AddClasificaciones(Clasificacion As String, Codigo As String, IdCuentaGasto As Integer, CuentaGasto As String, IdCuentaCostos As Integer, CuentaCostos As String, IdCuentaIngreso As Integer, CuentaIngreso As String, CveCategoria As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional RequiereSerieLote As Integer = 0, Optional UsoClasificacion As Integer = -1, Optional CveSATPS As Integer = -1, Optional RequiereAFCompra As Boolean = False, Optional RequiereAFInsumo As Boolean = False, Optional RequierePersonal As Boolean = False, Optional EsAcumulador As Boolean = False, Optional TopVentas As Boolean = False, Optional TopCompras As Boolean = False, Optional PrecioBaseCosto As Decimal = -1) As Boolean Dim Retorno As Boolean = False diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 33c02da87..202c993ec 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5646,7 +5646,7 @@ Public Class ClsContabilidad Optional PorcentajeIVA As Decimal = -1) As Boolean Dim Retorno = False - DataAdapter("PA_Conta_CuentasAsignacionesAdd") + DataAdapter("PA_Conta_CuentasAsignacionesUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CveCuentaAsignacion", SqlDbType.Int).Value = CveConceptoAsignacion diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 0fe627061..b792e8c86 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -304,7 +304,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetRepAlmacenes(FechaInicio As String, FechaFin As String, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Boolean, + Public Function GetRepAlmacenes(FechaInicio As String, FechaFin As String, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Integer, Optional SoloMovimientosContables As Boolean = False, Optional Almacenes As String = "-1", Optional CveSubProyecto As Integer = -1, Optional CveUsuarioConsulta As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -315,7 +315,7 @@ Public Class ClsInventarios .Add("@FechaF", SqlDbType.VarChar).Value = FechaFin .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen - .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable + .Add("@Inventariable", SqlDbType.Int).Value = Inventariable .Add("@SoloMovimientosContables", SqlDbType.Bit).Value = SoloMovimientosContables .Add("@Modalidad", SqlDbType.Int).Value = Contabilizable .Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes @@ -2484,7 +2484,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetInventarioFisicoDetalle(CveInventarioFisico As Integer, CveUsuario As Integer, Optional Agrupar As Boolean = False) As Boolean + Public Function GetInventarioFisicoDetalle(CveInventarioFisico As Integer, CveUsuario As Integer, Optional Agrupar As Boolean = False, Optional TopSelect As Integer = 10000) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_InventarioFisicoDetalleGet") @@ -2493,6 +2493,7 @@ Public Class ClsInventarios .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@Agrupar", SqlDbType.Bit).Value = Agrupar + .Add("@TopSelect", SqlDbType.Int).Value = TopSelect End With Try diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index 7849671d9..fac07ad08 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -240,7 +240,7 @@ Public Class ClsMovimientos Gpo As Integer, CveResponsable As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1", Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional FechaCorte As Date = Nothing, Optional EstatusCliente As Integer = -1, Optional CveUsuarioConsulta As Integer = -1, - Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1) As Boolean + Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -272,6 +272,7 @@ Public Class ClsMovimientos .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta .Add("@CveCobranzaEstatus", SqlDbType.Int).Value = CveCobranzaEstatus .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion + .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente End With Try @@ -317,15 +318,12 @@ Public Class ClsMovimientos Return Retorno End Function - Public Function GetCxCDetalle(FechaI As String, FechaF As String, CveCliente As Integer, CveSubProyecto As Integer, - CveVendedor As Integer, CveUsuario As Integer, Anio As Integer, Mes As Integer, - AnioMes As String, - Fecha As String, - CveClienteSucursal As Integer, Opcion As String, - CveEstatus As Integer, IVA As String, Agrupador As Integer, CveEmpresa As Integer, CveResponsable As Integer, - TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1", + Public Function GetCxCDetalle(FechaI As String, FechaF As String, CveCliente As Integer, CveSubProyecto As Integer, CveVendedor As Integer, CveUsuario As Integer, Anio As Integer, Mes As Integer, + AnioMes As String, Fecha As String, CveClienteSucursal As Integer, Opcion As String, CveEstatus As Integer, IVA As String, Agrupador As Integer, CveEmpresa As Integer, + CveResponsable As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1", Optional FechaVI As String = "-1", Optional FechaVF As String = "1", Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1, - Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional LimiteCredito As Decimal = -1) As Boolean + Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional LimiteCredito As Decimal = -1, + Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, Optional EstatusCliente As Integer = -1) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -363,6 +361,10 @@ Public Class ClsMovimientos .Add("@CveCobranzaEstatus", SqlDbType.Int).Value = CveCobranzaEstatus .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion .Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito + .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente + End With Try diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index dbda19f3b..5a2e41f76 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -1431,7 +1431,7 @@ Public Class ClsOC Return Retorno End Function - Public Function UpdateEstatus(Estatus As String, Tipo As String, CveEstatusSiguiente As Integer, TipoTermino As Integer, EstatusActivo As Boolean, EsCancelable As Boolean, CveEstatus As Integer) As Boolean + Public Function UpdateEstatus(Estatus As String, Tipo As String, CveEstatusSiguiente As Integer, TipoTermino As Integer, EstatusActivo As Boolean, EsCancelable As Boolean, CveEstatus As Integer, EsatatusSiguiente As String) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_EstatusUpdate") @@ -1452,6 +1452,9 @@ Public Class ClsOC Catch Ex1 As SqlException If Ex1.Message.Contains("Número: 2627;") Then Alert("Ya existe un Estatus con el mismo nombre: " & Estatus & ".", TipoMensaje.MsgAdvertencia) + + ElseIf Ex1.Message.Contains("Número: 530;") Then + Alert($"La asiganación del campo estatus siguiente {EsatatusSiguiente} esta creando problema de recursividad.", TipoMensaje.MsgAdvertencia) Else Me.OnError("Ocurrió un error al guardar los cambios en el Estatus", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 92bcf5399..531cadc14 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -783,20 +783,20 @@ Public Class ClsPaginas Application("GlobalDTMonedasAlias") = value End Set End Property - Property GlobalDTSucursales(Optional CveEmpresa As Integer = -1) As DataTable - Get - If CveEmpresa <> -1 Then - Dim Dv As New DataView(DirectCast(Application("GlobalDTSucursales"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), " Sucursal", DataViewRowState.CurrentRows) - GlobalDTSucursales = Dv.ToTable - Dv.Dispose() - Else - GlobalDTSucursales = DirectCast(Application("GlobalDTSucursales"), DataTable) - End If - End Get - Set(value As DataTable) - Application("GlobalDTSucursales") = value - End Set - End Property + 'Property GlobalDTSucursales(Optional CveEmpresa As Integer = -1) As DataTable + ' Get + ' If CveEmpresa <> -1 Then + ' Dim Dv As New DataView(DirectCast(Application("GlobalDTSucursales"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), " Sucursal", DataViewRowState.CurrentRows) + ' GlobalDTSucursales = Dv.ToTable + ' Dv.Dispose() + ' Else + ' GlobalDTSucursales = DirectCast(Application("GlobalDTSucursales"), DataTable) + ' End If + ' End Get + ' Set(value As DataTable) + ' Application("GlobalDTSucursales") = value + ' End Set + 'End Property Property GlobalDTSATUsosCFDI(Optional EsPersonaFisica As Integer = -1) As DataTable Get If EsPersonaFisica <> -1 Then @@ -1013,10 +1013,10 @@ Public Class ClsPaginas End Property Property GlobalDTProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, CveEstatus As Integer) As DataTable Get - - If Application("GlobalDTProyectosUsuarios") Is Nothing AndAlso DirectCast(Application("GlobalDTProyectosUsuarios"), DataTable).Rows.Count = 0 Then + Dim AppNombre As String = String.Format("GlobalDTProyectosUsuarios-{0}", CveEmpresa) + If Application(AppNombre) Is Nothing Then Dim ObjSubProyectos As New ClsSubProyectos() - If ObjSubProyectos.GetSubProyectosUsuarios Then Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError) + If ObjSubProyectos.GetSubProyectosUsuarios Then Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError) ObjSubProyectos.Dispose() GuardaLog("Se Cargo GlobalDTProyectosUsuarios") End If @@ -1028,25 +1028,18 @@ Public Class ClsPaginas If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario) If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatusProyecto = {0}", CveEstatus) - Dim Dv As New DataView(DirectCast(Application("GlobalDTProyectosUsuarios"), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows) + Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows) GlobalDTProyectosUsuarios = Dv.ToTable Dv.Dispose() Else - GlobalDTProyectosUsuarios = DirectCast(Application("GlobalDTProyectosUsuarios"), DataTable) + GlobalDTProyectosUsuarios = DirectCast(Application(AppNombre), DataTable) End If End Get Set(ByVal value As DataTable) - If value Is Nothing OrElse value.Rows.Count = 0 Then - Dim msg As String = "aqui no se carga proyectos" - If Request IsNot Nothing Then - msg = msg & Request.ServerVariables("URL") - End If - msg.GuardaLog() - - End If - Application("GlobalDTProyectosUsuarios") = value + Dim AppNombre As String = String.Format("GlobalDTSubProyectosUsuarios-{0}", CveEmpresa) + Application(AppNombre) = value End Set End Property Property GlobalDTPrecioListas(CveEmpresa As Integer) As DataTable @@ -1779,20 +1772,26 @@ Public Class ClsPaginas End Property Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1, Optional CveEstatus As Integer = 1) As DataTable Get + Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa) + 'sino existe, recarga los datos + If Application(AppNombre) Is Nothing Then + Dim ObjUsr As New ClsSisUsuarios + If ObjUsr.GetAlmacen(-1, CveEmpresa) Then Application(AppNombre) = ObjUsr.DtResultados + ObjUsr.Dispose() + End If Dim Str As New StringBuilder If CveEmpresa <> -1 Then Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa) If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen) If CveEstatus > 0 Then Str.AppendFormat("AND CveEstatus = {0}", CveEstatus) - Dim Dv As New DataView(DirectCast(Application("GlobalDTAlmacenUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) GlobalDTAlmacenUsuarios = Dv.ToTable Dv.Dispose() - - End Get Set(value As DataTable) - Application("GlobalDTAlmacenUsuarios") = value + Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa) + Application(AppNombre) = value End Set End Property @@ -7275,7 +7274,7 @@ Public Class ClsPaginas params.Add(New ReportParameter("TipoCambio", TipoCambio)) params.Add(New ReportParameter("NombreSolicito", dtOC(0)("UsuarioSolicito").ToString)) 'drSol("Nombre").ToString)) params.Add(New ReportParameter("PuestoSolicito", PuestoSol)) 'drPuestoSol("Puesto").ToString - params.Add(New ReportParameter("NombreAutorizo", UsuarioActual.Nombre)) + params.Add(New ReportParameter("NombreAutorizo", nombreautorizo)) params.Add(New ReportParameter("PuestoAutorizo", PuestoAut)) 'drPuestoAut("Puesto").ToString params.Add(New ReportParameter("TipoOC", If(ObjOC.Tipo = "OC", "Orden de Compra", "Requisición"))) params.Add(New ReportParameter("UsoCFDI", ObjOC.UsoCFDI)) @@ -8041,5 +8040,39 @@ Public Class ClsPaginas End Sub #End Region + Public Sub CargarCentrosDeCosto(DdlProyecto As DropDownList, DdlSubProyecto As DropDownList, LthProyectoP As Label, LblSubProyecto As Label) + Select Case UsuarioActual.Empresa.Tipo_CentroCosto + Case 1 + If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False + If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False + If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Centro Costo" + Case 2 + If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False + If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False + If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal" + Case 3 + If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False + If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False + If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Proyecto" + Case 4 + If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto
" + If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Subproyecto" + Case 5 + If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto
" + If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal" + End Select + + If DdlProyecto IsNot Nothing Then + DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})) + DdlProyecto.DataBind() + DdlProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) + End If + + If DdlSubProyecto IsNot Nothing Then + DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) + DdlSubProyecto.DataBind() + DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) + End If + End Sub End Class diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb index 8c83cfb7a..40cc65235 100644 --- a/App_Code/ClsSisEmpresas.vb +++ b/App_Code/ClsSisEmpresas.vb @@ -449,7 +449,7 @@ Public Class ClsSisEmpresas _Empresa.PV_TerminalTipo = Data.Rows(0)("PV_TerminalTipo").ToString.ToEntero _Empresa.EjercicioActual = Data.Rows(0)("EjercicioActual").ToString.ToEntero _Empresa.PeriodoActual = Data.Rows(0)("PeriodoActual").ToString.ToEntero - _Empresa.GralSoloProyecto = Data.Rows(0)("Gral_SoloProyecto").ToString <> "No" + '_Empresa.GralSoloProyecto = Data.Rows(0)("Gral_SoloProyecto").ToString <> "No" _Empresa.MetodoOC = Data.Rows(0)("MetodoOC").ToString.ToEntero _Empresa.CveMetodoInventario = Data.Rows(0)("Inv_CveMetodoInventario").ToString.ToEntero _Empresa.RequiereCentroCostos = Data.Rows(0)("RequiereCentroCostos").ToString <> "No" diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb index 94e463463..8a7d501e9 100644 --- a/App_Code/ClsSisUsuarios.vb +++ b/App_Code/ClsSisUsuarios.vb @@ -1571,13 +1571,14 @@ Public Class ClsSisUsuarios #End Region #Region " A L M A C E N " - Public Function GetAlmacen(CveUsuario As Integer) As Boolean + Public Function GetAlmacen(CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Sis_UsuariosAlmacenesGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/App_Code/ClsSucursales.vb b/App_Code/ClsSucursales.vb.exclude similarity index 100% rename from App_Code/ClsSucursales.vb rename to App_Code/ClsSucursales.vb.exclude diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index f5ac79de9..4dcf2318d 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -1320,7 +1320,7 @@ Public Class ClsVentas Public Function GetRepVentas(FechaI As Date, FechaF As Date, FechaIEjec As Date, FechaFEjec As Date, CveCliente As Integer, CveSubProyectoEjecucion As Integer, CveVendedor As String, CveUsuario As Integer, CveEstatus As String, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoDocto As String = "-1", Optional CveProyecto As Integer = -1, Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveUsuarioConsulta As Integer = -1, - Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1) As Boolean + Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasGetRep") @@ -1346,6 +1346,7 @@ Public Class ClsVentas .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago + .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente End With Try @@ -1405,7 +1406,7 @@ Public Class ClsVentas Public Function GetRepVentasPeriodos(FechaI As Date, FechaF As Date, FechaIEjec As Date, FechaFEjec As Date, CveCliente As Integer, CveSubProyectoEjecucion As Integer, CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoDocto As String = "-1", Optional CveProyecto As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveUsuarioConsulta As Integer = -1, Optional VerEn As Integer = -1, - Optional CveClienteClasificacion As Integer = -1) As Boolean + Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasGetRepPeriodo") @@ -1432,6 +1433,7 @@ Public Class ClsVentas .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta .Add("@VerEn", SqlDbType.Int).Value = VerEn .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion + .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente End With Try @@ -1449,7 +1451,7 @@ Public Class ClsVentas Vendedor As String, CveUsuario As Integer, CveEstatus As String, FechaI As Date, FechaF As Date, CveCorte As Integer, TipoDocto As String, CveSubProyectoEjecucion As Integer, CveEmpresa As Integer, FechaIEjec As Date, FechaFEjec As Date, Optional CveProyecto As Integer = -1, Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveMoneda As Integer = -1, Optional CveUsuarioConsulta As Integer = -1, - Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1) As Boolean + Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasGetRepDetalle") @@ -1480,6 +1482,7 @@ Public Class ClsVentas .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago + .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente End With Try @@ -1499,7 +1502,7 @@ Public Class ClsVentas CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = -1, Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1", Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, - Optional CveMarca As Integer = -1, Optional MostrarLitraje As Boolean = False) As Boolean + Optional CveMarca As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional TipoCliente As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_GetRepPS") @@ -1528,6 +1531,7 @@ Public Class ClsVentas .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra .Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@MostrarLitraje", SqlDbType.Bit).Value = MostrarLitraje + .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente End With @@ -1544,8 +1548,9 @@ Public Class ClsVentas Public Function GetRepProductosServiciosDetalle(CveProyecto As Integer, CveSubProyecto As Integer, CveCategoria As Integer, CveClasificacion As Integer, CvePS As Integer, FechaI As Date, FechaF As Date, Mes As Integer, FechaIEjec As Date, FechaFEjec As Date, MesEjec As Integer, CveCliente As Integer, CveSubProyectoEjecucion As Integer, CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1, - Optional TipoDocto As String = "-1", Optional GPO As Integer = -1, Optional CveMoneda As Integer = -1, Optional TipoCambio As Integer = -1, - Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, Optional CveMarca As Integer = -1, Optional CveClasificacionDetalle As Integer = -1) As Boolean + Optional TipoDocto As String = "-1", Optional GPO As Integer = -1, Optional CveMoneda As Integer = -1, Optional TipoCambio As Integer = -1, + Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, Optional CveMarca As Integer = -1, + Optional CveClasificacionDetalle As Integer = -1, Optional TipoCliente As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_GetRepPSDetalle") @@ -1577,6 +1582,9 @@ Public Class ClsVentas .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra .Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@CveClasificacionDetalle", SqlDbType.Int).Value = CveClasificacionDetalle + .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente + + End With Try diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb index d2fef276f..eec8c4022 100644 --- a/App_Code/Empresa.vb +++ b/App_Code/Empresa.vb @@ -40,7 +40,6 @@ Public Class Empresa Public Property MostrarRetIVA As Boolean Public Property EjercicioActual As Integer Public Property PeriodoActual As Integer - Public Property GralSoloProyecto As Boolean Public Property MetodoOC As Integer Public Property CveMetodoInventario As Integer Public Property RequiereCentroCostos As Boolean diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index dd42bdcb9..5d28a3a5a 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -1344,7 +1344,7 @@ Namespace Modelos Public Sub GuardarVenta(ByRef factura As Modelos.Factura, ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ByRef ObjInventario As ClsInventarios, ByRef ObjContr As ClsContratos, ByRef TmpDTDetalle As DataTable, CveNCaVincular As Integer, ByRef objContPaqi As ClsContPAQi, Optional ByRef ObjBancos As ClsBancos = Nothing, Optional ByRef ObjOS As ClsOS = Nothing, ByRef Optional ObjEventos As ClsOIEventos = Nothing, ByRef Optional ObjCGame As ClsCGame = Nothing, ByRef Optional ObjCliente As ClsClientes = Nothing, Optional EsNotaCredito As Boolean = False, Optional ObjAcum As ClsAcumuladores = Nothing) Dim Msgok As New StringBuilder - factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVenta", factura.CvePlantillaPoliza, factura.TotalTC, factura.TotalTC, factura.CveMoneda, factura.Fecha, If(factura.CveEmpresaCRM > 0, factura.EmpresaCRM, factura.Cliente.Nombre), factura.CveUsuario, factura.CveEmpresa) + factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVentaM", factura.CvePlantillaPoliza, factura.TotalTC, factura.TotalTC, factura.CveMoneda, factura.Fecha, If(factura.CveEmpresaCRM > 0, factura.EmpresaCRM, factura.Cliente.Nombre), factura.CveUsuario, factura.CveEmpresa) If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC, factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC, @@ -2213,7 +2213,7 @@ Namespace Modelos End If IdCtaContable = ObjFactura.Cliente.IdCtaContMonedaExtranjera - CveCuenta = ObjFactura.Cliente.CveCuentaMonedaExtranjera + 'CveCuenta = ObjFactura.Cliente.CveCuentaMonedaExtranjera End If CveSubProyectoContabilizar = CveSubProyectoVenta ImporteConcepto12 = importeMX.RoundSQL @@ -2222,10 +2222,10 @@ Namespace Modelos CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) idCuentaContabilizacion = 0 End If - If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) - CveCuentaContabilizacion = 0 - End If + 'If CveCuenta <= 0 Then + ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) + ' CveCuentaContabilizacion = 0 + 'End If If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True Else @@ -2804,7 +2804,7 @@ Namespace Modelos End If - CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero + 'CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero If importeMovimiento <> 0 Then @@ -2813,10 +2813,10 @@ Namespace Modelos idCuentaContabilizacion = 0 End If - If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}")) - CveCuentaContabilizacion = 0 - End If + 'If CveCuenta <= 0 Then + ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}")) + ' CveCuentaContabilizacion = 0 + 'End If If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContableAplicar, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveCuenta:=CveCuenta) Then ErrorPrepoliza = True @@ -2867,12 +2867,12 @@ Namespace Modelos For Each Row2 As DataRow In DT.Rows importeMovimiento = ((TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal) * ValorMultiplicador) - If ObjFactura.TipoDocto = "Egs" Then - importeMovimiento += (TmpDTDetalle.SUM("ImporteIVA", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador - importeMovimiento += (TmpDTDetalle.SUM("ImporteIEPS", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador - importeMovimiento -= (TmpDTDetalle.SUM("ImporteRetIVA", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador - importeMovimiento -= (TmpDTDetalle.SUM("ImporteRetISR", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador - End If + 'If ObjFactura.TipoDocto = "Egs" Then + ' importeMovimiento += (TmpDTDetalle.SUM("ImporteIVA", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador + ' importeMovimiento += (TmpDTDetalle.SUM("ImporteIEPS", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador + ' importeMovimiento -= (TmpDTDetalle.SUM("ImporteRetIVA", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador + ' importeMovimiento -= (TmpDTDetalle.SUM("ImporteRetISR", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador + 'End If importeMX = importeMovimiento * tipoCambio * Multiplicador FechaMovimiento = ObjFactura.FechaPago @@ -2891,7 +2891,7 @@ Namespace Modelos If Row2("CveClasificacion").ToString = "19929" Then IdCtaContable = 1142 End If - CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero + 'CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero If importeMovimiento <> 0 Then @@ -2900,10 +2900,10 @@ Namespace Modelos idCuentaContabilizacion = 0 End If - If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}")) - CveCuentaContabilizacion = 0 - End If + 'If CveCuenta <= 0 Then + ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}")) + ' CveCuentaContabilizacion = 0 + 'End If If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContableAplicar, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveCuenta:=CveCuenta) Then ErrorPrepoliza = True @@ -2917,42 +2917,66 @@ Namespace Modelos importeMovimiento = 0 Case 103 'Descuento - If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso ObjFactura.CveTipoAmortizacionAnticipo = -1 Then + If ObjFactura.Descuento <> 0 AndAlso Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso ObjFactura.CveTipoAmortizacionAnticipo = -1 Then - importeMovimiento = (ObjFactura.Descuento * ValorMultiplicador) + importeMovimiento = ObjFactura.Descuento * ValorMultiplicador importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador FechaMovimiento = ObjFactura.FechaPago CveSubProyectoContabilizar = CveSubProyectoVenta If importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjConta.DtResultados.Rows(0)("Conta_IdCuentaDescuentoVenta").ToString.ToEntero - 'CveCuenta = ObjConta.DtResultados.Rows(0)("Conta_IdCuentaDescuentoVenta").ToString.ToEntero + IdCtaContable = ObjConta.DtResultados.Rows(0)("Conta_IdCuentaDescuentoVenta").ToString().ToEntero() + 'CveCuenta = ObjConta.DtResultados.Rows(0)("Conta_IdCuentaDescuentoVenta").ToString().ToEntero() End If End If - If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - If importeMovimiento > 0 AndAlso UsuarioActual.CveEmpresa = 119 Then - 'código fijo en base el porcentaje iva, que se afecten las clasificaciones - For i = 0 To TmpDTDetalle.Rows.Count - 1 - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then - TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveClasificacion").ToString + DT = TmpDTDetalle.FiltraParametros("", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"}) + + If DT.Rows.Count > 0 Then + 'Se agrega movimiento separado por la cuenta de ventas (ER) + For Each Row2 As DataRow In DT.Rows + importeMovimiento = (TmpDTDetalle.SUM("Descuento", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador + importeMX = importeMovimiento * tipoCambio * Multiplicador + FechaMovimiento = ObjFactura.FechaPago + Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}" + + If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" + 'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas + If ObjFactura.TipoDocto.Contiene("Egs") Then + IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero() + Else + IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresos", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero() + End If + + If importeMovimiento <> 0 Then + + If IdCtaContable <= 0 Then + CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString() + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}")) + idCuentaContabilizacion = 0 + End If + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 103, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveVentaAmortizacion:=-1, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=Row2("CveSubProyecto").ToString().ToEntero(), ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, PorcentajeImpuesto:=Row2("PorcentajeIVA").ToString().ToDecimal) Then + ErrorPrepoliza = True + Else + ObjFactura.SeGuardoPrePoliza = True + End If End If Next - End If End If + importeMovimiento = 0 - Case 103 'Descuento - 'si se amortiza anticipo por concepto de descuento, no debe de registrar esta partida. - If ObjFactura.CveTipoAmortizacionAnticipo <> 1 Then - importeMovimiento = (ObjFactura.Descuento * ValorMultiplicador) - importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador - FechaMovimiento = ObjFactura.FechaPago - If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - IdCtaContable = 0 - End If + 'Case 103 'Descuento + ' 'si se amortiza anticipo por concepto de descuento, no debe de registrar esta partida. + ' If ObjFactura.CveTipoAmortizacionAnticipo <> 1 Then + ' importeMovimiento = (ObjFactura.Descuento * ValorMultiplicador) + ' importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador + ' FechaMovimiento = ObjFactura.FechaPago + ' If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" + ' IdCtaContable = 0 + ' End If Case 8 'Ret IVA por Trasladar If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso ObjFactura.CveTipoRetencion <> 4 Then 'SI NO ES RETENCION DE IVA DE SERVICIOS @@ -2962,8 +2986,8 @@ Namespace Modelos CveSubProyectoContabilizar = CveSubProyectoVenta If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - If ObjFactura.TipoDocto = "Dev" Then - TipoMovimiento = True + If ValorMultiplicador = -1 AndAlso ObjFactura.Alfa3 = "DEV" AndAlso ObjFactura.TipoDocto = "Dev" Then + TipoMovimiento = Not TipoMovimiento ConceptoContable = 62 importeMovimiento = importeMovimiento * -1 importeMX = importeMX * -1 @@ -3000,8 +3024,8 @@ Namespace Modelos CveSubProyectoContabilizar = CveSubProyectoVenta If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - If ObjFactura.TipoDocto = "Dev" Then - TipoMovimiento = True + If ValorMultiplicador = -1 AndAlso ObjFactura.Alfa3 = "DEV" AndAlso ObjFactura.TipoDocto = "Dev" Then + TipoMovimiento = Not TipoMovimiento ConceptoContable = 314 importeMovimiento = importeMovimiento * -1 importeMX = importeMX * -1 @@ -3025,8 +3049,8 @@ Namespace Modelos CveSubProyectoContabilizar = CveSubProyectoVenta If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - If ObjFactura.TipoDocto = "Dev" Then - TipoMovimiento = True + If ValorMultiplicador = -1 AndAlso ObjFactura.Alfa3 = "DEV" AndAlso ObjFactura.TipoDocto = "Dev" Then + TipoMovimiento = Not TipoMovimiento ConceptoContable = 63 importeMovimiento = importeMovimiento * -1 importeMX = importeMX * -1 @@ -3061,8 +3085,8 @@ Namespace Modelos FechaMovimiento = ObjFactura.FechaPago PorcentajeImpuesto = TmpDTDetalle.MAX("PorcentajeIVA").ToDecimal - If ObjFactura.TipoDocto = "Dev" Then - TipoMovimiento = True + If ValorMultiplicador = -1 AndAlso ObjFactura.Alfa3 = "DEV" AndAlso ObjFactura.TipoDocto = "Dev" Then + TipoMovimiento = Not TipoMovimiento ConceptoContable = 61 importeMovimiento = importeMovimiento * -1 importeMX = importeMX * -1 @@ -3078,39 +3102,39 @@ Namespace Modelos If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" End If - If ObjFactura.TipoDocto = "Egs" Then + 'If ObjFactura.TipoDocto = "Egs" Then - importeMovimiento = ObjFactura.IVA * ValorMultiplicador - importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2) - FechaMovimiento = ObjFactura.FechaPago - PorcentajeImpuesto = TmpDTDetalle.MAX("PorcentajeIVA").ToDecimal + ' importeMovimiento = ObjFactura.IVA * ValorMultiplicador + ' importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2) + ' FechaMovimiento = ObjFactura.FechaPago + ' PorcentajeImpuesto = TmpDTDetalle.MAX("PorcentajeIVA").ToDecimal - If importeMovimiento <> 0 Then - 'IVA X TRASLADAR - IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) - CveCuentaIVAxTrasladar = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar) - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) + ' If importeMovimiento <> 0 Then + ' 'IVA X TRASLADAR + ' IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) + ' CveCuentaIVAxTrasladar = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar) + ' Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVAxTrasladar, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto) Then - ErrorPrepoliza = True - Exit For - End If + ' If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVAxTrasladar, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto) Then + ' ErrorPrepoliza = True + ' Exit For + ' End If - 'IVA PAGADO - IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) - CveCuentaIVATrasladado = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado) - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) + ' 'IVA PAGADO + ' IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) + ' CveCuentaIVATrasladado = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado) + ' Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVATrasladado, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto) Then - ErrorPrepoliza = True - Exit For - End If - End If + ' If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVATrasladado, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto) Then + ' ErrorPrepoliza = True + ' Exit For + ' End If + ' End If - importeMovimiento = 0 - importeMX = 0 - End If + ' importeMovimiento = 0 + ' importeMX = 0 + 'End If Case 38 'IEPS por Trasladar @@ -3120,8 +3144,8 @@ Namespace Modelos FechaMovimiento = ObjFactura.Fecha CveSubProyectoContabilizar = CveSubProyectoVenta - If ObjFactura.TipoDocto = "Dev" Then - TipoMovimiento = True + If ValorMultiplicador = -1 AndAlso ObjFactura.Alfa3 = "DEV" AndAlso ObjFactura.TipoDocto = "Dev" Then + TipoMovimiento = Not TipoMovimiento ConceptoContable = 39 importeMovimiento = importeMovimiento * -1 importeMX = importeMX * -1 @@ -3143,24 +3167,24 @@ Namespace Modelos If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - If importeMovimiento <> 0 AndAlso ObjFactura.TipoDocto = "Egs" Then - 'IEPS X TRASLADAR - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then - ErrorPrepoliza = True - Exit For - End If + 'If importeMovimiento <> 0 AndAlso ObjFactura.TipoDocto = "Egs" Then + ' 'IEPS X TRASLADAR + ' Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) + ' If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then + ' ErrorPrepoliza = True + ' Exit For + ' End If - 'IEPS PAGADO - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then - ErrorPrepoliza = True - Exit For - End If + ' 'IEPS PAGADO + ' Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) + ' If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then + ' ErrorPrepoliza = True + ' Exit For + ' End If - importeMovimiento = 0 - importeMX = 0 - End If + ' importeMovimiento = 0 + ' importeMX = 0 + 'End If If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" @@ -3194,7 +3218,7 @@ Namespace Modelos If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows.Count = 1 Then IdCtaContable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows(0)("IdCtaContable").ToString.ToEntero - CveCuenta = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows(0)("IdCtaContableSIG").ToString.ToEntero + ' CveCuenta = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows(0)("IdCtaContableSIG").ToString.ToEntero End If If IdCtaContable <= 0 Then @@ -3202,10 +3226,10 @@ Namespace Modelos idCuentaContabilizacion = 0 End If - If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.AppendFormat("
{0}", GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows(0)("NumCuentaMoneda").ToString.ToEntero) - CveCuentaContabilizacion = 0 - End If + 'If CveCuenta <= 0 Then + ' CuentasContablesInvalidasSIG.AppendFormat("
{0}", GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows(0)("NumCuentaMoneda").ToString.ToEntero) + ' CveCuentaContabilizacion = 0 + 'End If 'BANCOS Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 30, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) @@ -3272,10 +3296,10 @@ Namespace Modelos idCuentaContabilizacion = 0 End If - If CveCuenta <= 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) - CveCuentaContabilizacion = 0 - End If + 'If CveCuenta <= 0 Then + ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) + ' CveCuentaContabilizacion = 0 + 'End If If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=tipoCambio, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True @@ -7454,21 +7478,24 @@ Namespace Modelos End Property Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1) As DataTable Get - If CveEmpresa <> -1 Then - Dim Str As New StringBuilder - Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa) - If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen) - - Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) - GlobalDTAlmacenUsuarios = Dv.ToTable - Dv.Dispose() - Else - GlobalDTAlmacenUsuarios = DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable) + Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa) + 'sino existe, recarga los datos + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Dim ObjUsr As New ClsSisUsuarios + If ObjUsr.GetAlmacen(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjUsr.DtResultados + ObjUsr.Dispose() End If + Dim Str As New StringBuilder + Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa) + If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen) + Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + GlobalDTAlmacenUsuarios = Dv.ToTable + Dv.Dispose() End Get Set(value As DataTable) - HttpContext.Current.Application("GlobalDTAlmacenUsuarios") = value + Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa) + HttpContext.Current.Application(AppNombre) = value End Set End Property Property GlobalDTNom_Periodos() As DataTable diff --git a/App_Code/WS_PuntoVenta.vb b/App_Code/WS_PuntoVenta.vb index cd18bf021..e22b5f793 100644 --- a/App_Code/WS_PuntoVenta.vb +++ b/App_Code/WS_PuntoVenta.vb @@ -429,22 +429,22 @@ Public Class WS_PuntoVenta Return Respuesta End Function - - Public Function GetSucursales(CveEmpresa As Integer) As RespuestaWS - Dim objSucursales As New ClsSucursales - Dim Respuesta As New RespuestaWS + ' + 'Public Function GetSucursales(CveEmpresa As Integer) As RespuestaWS + ' Dim objSucursales As New ClsSucursales + ' Dim Respuesta As New RespuestaWS - If objSucursales.GetSucursales() Then - Respuesta.Datos = objSucursales.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresa)) - Respuesta.Datos.TableName = "Resultados" - Respuesta.HuboError = False - Else - Respuesta.Descripcion = "HUBO UN ERROR" - End If + ' If objSucursales.GetSucursales() Then + ' Respuesta.Datos = objSucursales.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresa)) + ' Respuesta.Datos.TableName = "Resultados" + ' Respuesta.HuboError = False + ' Else + ' Respuesta.Descripcion = "HUBO UN ERROR" + ' End If - objSucursales.Dispose() - Return Respuesta - End Function + ' objSucursales.Dispose() + ' Return Respuesta + 'End Function Public Function GetClientes(CveEmpresa As Integer) As RespuestaWS @@ -1170,7 +1170,7 @@ Public Class WS_PuntoVenta 'Enviar correo de corte de turno EnviarCorreo(VtaCorte.CveCorte, VtaCorte.CveEmpresa) - Dim cuenta As Integer = GetCuenta(2090) + ' Dim cuenta As Integer = GetCuenta(2090) Else objPV.RollBack() End If @@ -1197,16 +1197,16 @@ Public Class WS_PuntoVenta Return objVentasPago End Function - - Public Function GetCuenta(CveSucursal As Integer) As Integer - Dim objSU As New ClsSucursales - Dim Cuenta As Integer + ' + 'Public Function GetCuenta(CveSucursal As Integer) As Integer + ' Dim objSU As New ClsSucursales + ' Dim Cuenta As Integer - 'Cuenta = objSU.GetCuenta(CveSucursal) - objSU.Dispose() + ' 'Cuenta = objSU.GetCuenta(CveSucursal) + ' objSU.Dispose() - Return Cuenta - End Function + ' Return Cuenta + 'End Function Public Function AddBancosIE(Importe As Double, Moneda As Integer, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer, Cuenta As Integer, Comprobante As String, Opcion As String) As Boolean diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 49385d59d..14d3f041a 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -3680,7 +3680,8 @@ Partial Class Bancos_IE 'Notificación de Pago If TxtNotificarA.Text.Trim <> "" And MsgError = "" Then - NotificacionPago(CveIE, TxtNotificarA.Text.Trim) + 'NotificacionPago(CveIE, TxtNotificarA.Text.Trim) + EnviarCorreoNotificacion(CveIE, TxtNotificarA.Text.Trim, "", UsuarioActual, False) End If Else @@ -3811,253 +3812,257 @@ Partial Class Bancos_IE End Sub #Region " NOTIFICACION PAGO " - Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String) - - If Not DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then - - Dim Param As New List(Of String) - - Param.Add(CorreoNotificarA) 'Para - Param.Add("Notificaciones de pago") 'Asunto - Param.Add(GeneraCorreo2(CveIE)) 'Body - Param.Add(CveIE.ToString) 'CveIE - Param.Add(If(ComprobanteIE <> "", String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ComprobanteIE), "")) 'Archivo Adjunto - - Dim Hilo As New Threading.Thread(AddressOf MandaCorreo) - Hilo.Start(Param) - - End If - End Sub - Private Sub MandaCorreo(data As Object) - Dim Parametros As List(Of String) = DirectCast(data, List(Of String)) - - Dim Mail As New ClsSisMail() - Dim Para As String = If(Parametros(0) IsNot Nothing, Parametros(0), "") - Dim Asunto As String = If(Parametros(1) IsNot Nothing, Parametros(1), "") - Dim Body As String = If(Parametros(2) IsNot Nothing, Parametros(2), "") - Dim CveIE As Integer = If(Parametros(3) IsNot Nothing, Parametros(3).ToEntero, 0) - - Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail) - If Parametros(4) IsNot Nothing AndAlso Parametros(4) <> "" Then - ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = Parametros(4).ToString}) - End If - - If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos) Then - Dim objIE As New ClsBancos - objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE) - objIE.Dispose() - End If - End Sub - - Private Function GeneraCorreo2(CveIE As Integer) As String - Dim strBody As New StringBuilder - Dim objIE As New ClsBancos - - If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" {0}", UsuarioActual.Empresa.Empresa) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.Direccion) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.Colonia) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.RFC) - strBody.AppendFormat(" ") - strBody.AppendFormat("
{0}
Col. {0}
{0}, {1}, C.P.{2}
RFC {0}
") - strBody.AppendFormat("
") - strBody.AppendFormat("


") - - 'strBody.AppendFormat("
") - 'strBody.AppendFormat("
") - 'strBody.AppendFormat(" ") - 'strBody.AppendFormat(" ") - - 'If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque - ' strBody.Append(" ") - ' strBody.Append(" ") - ' strBody.Append(" ") - 'End If - - 'If objIE.CveTipoTransaccion = 2 Then ' cuando es transf - ' strBody.Append(" ") - ' strBody.Append(" ") - ' strBody.Append(" ") - 'End If - - 'strBody.Append(" ") - 'strBody.AppendFormat(" ") - 'strBody.Append(" ") - 'strBody.Append("
Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.
Notificación de transferencia de pago realizada.
 
") - 'strBody.AppendFormat("
") - 'strBody.Append("
") - - - strBody.AppendFormat("
") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" Beneficiario:{0} ", objIE.PagueseA) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.TipoTransaccion) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.Banco) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.NumCuenta) - strBody.AppendFormat(" ") - If objIE.CuentaDepositado.ToString <> "" Then - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.CuentaDepositado) - strBody.AppendFormat(" ") - End If - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.FechaDocumento.ToString("dd/MM/yyyy")) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.Importe.FormatoNumero, objIE.Moneda) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.Observaciones) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat("
Movimiento:{0}
Banco:{0}
Cuenta:{0}
Cuenta Destino:{0}
Fecha:{0}
Importe:$ {0} {1}
Observaciones:{0}
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - - - 'MOVIMIENTOS CHEQUE - 'If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then - ' Dim Textov33 As String = "" - ' If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then - ' Textov33 = "Favor de emitir complemento de pago de los siguientes documentos" - ' End If - - ' strBody.AppendFormat("
") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat("
") - ' strBody.AppendFormat("
") - ' strBody.AppendFormat(" Documentos abonados o pagados
{0} ", Textov33) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - - - ' For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", dr("Fecha").ToString.ToDate.ToShortDateString()) - ' strBody.AppendFormat(" ", dr("SerieFolio").ToString) - ' strBody.AppendFormat(" ", dr("Importe").ToString.FormatoNumero) - ' strBody.AppendFormat(" ", dr("FolioFiscal")) - ' strBody.AppendFormat(" ") - ' Next - - - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat("
FechaFacturaImporte ($)Folio Fiscal
{0}{0}$ {0}{0}
") - ' strBody.AppendFormat("
") - ' strBody.AppendFormat("
") - ' strBody.AppendFormat("
") - ' strBody.AppendFormat("
") - ' strBody.AppendFormat("
") - 'End If - - strBody.Append("
Favor de no responder a este correo.
") - - strBody.Append("") - End If - - objIE.Dispose() - Return strBody.ToString - End Function + + 'Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String) + + ' If Not DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then + + ' Dim Param As New List(Of String) + + ' Param.Add(CorreoNotificarA) 'Para + ' Param.Add("Notificaciones de pago") 'Asunto + ' Param.Add(GeneraCorreo2(CveIE)) 'Body + ' Param.Add(CveIE.ToString) 'CveIE + ' Param.Add(If(ComprobanteIE <> "", String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ComprobanteIE), "")) 'Archivo Adjunto + + ' Dim Hilo As New Threading.Thread(AddressOf MandaCorreo) + ' Hilo.Start(Param) + + ' End If + + + + 'End Sub + 'Private Sub MandaCorreo(data As Object) + ' Dim Parametros As List(Of String) = DirectCast(data, List(Of String)) + + ' Dim Mail As New ClsSisMail() + ' Dim Para As String = If(Parametros(0) IsNot Nothing, Parametros(0), "") + ' Dim Asunto As String = If(Parametros(1) IsNot Nothing, Parametros(1), "") + ' Dim Body As String = If(Parametros(2) IsNot Nothing, Parametros(2), "") + ' Dim CveIE As Integer = If(Parametros(3) IsNot Nothing, Parametros(3).ToEntero, 0) + + ' Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail) + ' If Parametros(4) IsNot Nothing AndAlso Parametros(4) <> "" Then + ' ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = Parametros(4).ToString}) + ' End If + + ' If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos) Then + ' Dim objIE As New ClsBancos + ' objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE) + ' objIE.Dispose() + ' End If + 'End Sub + + 'Private Function GeneraCorreo2(CveIE As Integer) As String + ' Dim strBody As New StringBuilder + ' Dim objIE As New ClsBancos + + ' If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" {0}", UsuarioActual.Empresa.Empresa) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Direccion) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Colonia) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.RFC) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
{0}
Col. {0}
{0}, {1}, C.P.{2}
RFC {0}
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("


") + + ' 'strBody.AppendFormat("
") + ' 'strBody.AppendFormat("
") + ' 'strBody.AppendFormat(" ") + ' 'strBody.AppendFormat(" ") + + ' 'If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque + ' ' strBody.Append(" ") + ' ' strBody.Append(" ") + ' ' strBody.Append(" ") + ' 'End If + + ' 'If objIE.CveTipoTransaccion = 2 Then ' cuando es transf + ' ' strBody.Append(" ") + ' ' strBody.Append(" ") + ' ' strBody.Append(" ") + ' 'End If + + ' 'strBody.Append(" ") + ' 'strBody.AppendFormat(" ") + ' 'strBody.Append(" ") + ' 'strBody.Append("
Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.
Notificación de transferencia de pago realizada.
 
") + ' 'strBody.AppendFormat("
") + ' 'strBody.Append("
") + + + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" Beneficiario:{0} ", objIE.PagueseA) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.TipoTransaccion) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.Banco) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.NumCuenta) + ' strBody.AppendFormat(" ") + ' If objIE.CuentaDepositado.ToString <> "" Then + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.CuentaDepositado) + ' strBody.AppendFormat(" ") + ' End If + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.FechaDocumento.ToString("dd/MM/yyyy")) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.Importe.FormatoNumero, objIE.Moneda) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.Observaciones) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
Movimiento:{0}
Banco:{0}
Cuenta:{0}
Cuenta Destino:{0}
Fecha:{0}
Importe:$ {0} {1}
Observaciones:{0}
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + + + ' 'MOVIMIENTOS CHEQUE + ' 'If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then + ' ' Dim Textov33 As String = "" + ' ' If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then + ' ' Textov33 = "Favor de emitir complemento de pago de los siguientes documentos" + ' ' End If + + ' ' strBody.AppendFormat("
") + ' ' strBody.AppendFormat(" ") + ' ' strBody.AppendFormat(" ") + ' ' strBody.AppendFormat(" ") + ' ' strBody.AppendFormat(" ") + ' ' strBody.AppendFormat("
") + ' ' strBody.AppendFormat("
") + ' ' strBody.AppendFormat(" Documentos abonados o pagados
{0} ", Textov33) + ' ' strBody.AppendFormat(" ") + ' ' strBody.AppendFormat(" ") + ' ' strBody.AppendFormat(" ") + ' ' strBody.AppendFormat(" ") + ' ' strBody.AppendFormat(" ") + ' ' strBody.AppendFormat(" ") + ' ' strBody.AppendFormat(" ") + + + ' ' For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows + ' ' strBody.AppendFormat(" ") + ' ' strBody.AppendFormat(" ", dr("Fecha").ToString.ToDate.ToShortDateString()) + ' ' strBody.AppendFormat(" ", dr("SerieFolio").ToString) + ' ' strBody.AppendFormat(" ", dr("Importe").ToString.FormatoNumero) + ' ' strBody.AppendFormat(" ", dr("FolioFiscal")) + ' ' strBody.AppendFormat(" ") + ' ' Next + + + ' ' strBody.AppendFormat(" ") + ' ' strBody.AppendFormat(" ") + ' ' strBody.AppendFormat(" ") + ' ' strBody.AppendFormat("
FechaFacturaImporte ($)Folio Fiscal
{0}{0}$ {0}{0}
") + ' ' strBody.AppendFormat("
") + ' ' strBody.AppendFormat("
") + ' ' strBody.AppendFormat("
") + ' ' strBody.AppendFormat("
") + ' ' strBody.AppendFormat("
") + ' 'End If + + ' strBody.Append("
Favor de no responder a este correo.
") + + ' strBody.Append("") + ' End If + + ' objIE.Dispose() + ' Return strBody.ToString + 'End Function @@ -6102,38 +6107,77 @@ Partial Class Bancos_IE End Function Private Sub BtnSendMail_Click(sender As Object, e As EventArgs) Handles BtnSendMail.Click - 'NotificacionPago(HdnCveIE.Value.ToEntero, Txt) - Dim ObjMail As New ClsSisMail() - Dim Body = GeneraCorreo(CveIE) - Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail) - Dim ObjIE As New ClsBancos() - If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then - If ObjIE.DtResultados.Rows.Count > 0 Then - If ObjIE.Comprobante <> "" Then - ComprobanteIE = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString) + EnviarCorreoNotificacion(CveIE, TxtParaMail.Text.Trim, TxtCC.Text.Trim, UsuarioActual, True) - If IO.File.Exists(ComprobanteIE) Then - ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = ComprobanteIE.ToString}) - End If - End If - End If - End If - ObjIE.Dispose() + ''NotificacionPago(HdnCveIE.Value.ToEntero, Txt) + 'Dim ObjMail As New ClsSisMail() + 'Dim Body = GeneraCorreo(CveIE) - If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Notificaciones de pago", Body, TxtCC.Text.Trim, Displayname:="Notificaciones de pago", Archivos:=ListaArchivos) Then - 'ResultadoMail = 1 - TxtCC.Text = "" - 'TxtAdicional.Text = "" - RegistraScript("$('#ModalDivMail').modal('hide');") - Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) - Else - Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError) - End If + 'Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail) + + 'Dim ObjIE As New ClsBancos() + 'If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then + ' If ObjIE.DtResultados.Rows.Count > 0 Then + ' If ObjIE.Comprobante <> "" Then + ' ComprobanteIE = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString) + + ' If IO.File.Exists(ComprobanteIE) Then + ' ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = ComprobanteIE.ToString}) + ' End If + ' End If + ' End If + 'End If + 'ObjIE.Dispose() + + 'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Notificaciones de pago", Body, TxtCC.Text.Trim, Displayname:="Notificaciones de pago", Archivos:=ListaArchivos) Then + ' 'ResultadoMail = 1 + ' TxtCC.Text = "" + ' 'TxtAdicional.Text = "" + ' RegistraScript("$('#ModalDivMail').modal('hide');") + ' Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) + 'Else + ' Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError) + 'End If End Sub + + Private Sub EnviarCorreoNotificacion(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario, MostarAlert As Boolean) + + Try + Dim Hilo As New Threading.Thread(Sub() EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar)) + Hilo.Start() + If MostarAlert Then + Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) + RegistraScript("$('#ModalDivMail').modal('hide');") + End If + Catch ex As Exception + If MostarAlert Then + Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError) + End If + End Try + + End Sub + + Private Sub EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario) + + Try + Dim ObjBancos As New ClsBancos() + If ObjBancos.NotificacionPago(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar) Then + Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) + Else + Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError) + End If + ObjBancos.Dispose() + Catch ex As Exception + GuardaLog("Error al enviar notificación de pago IE --> " & ex.StackTrace.ToString) + End Try + + End Sub + + Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click RegistraScript("$('#ModalAjustarMovimiento').modal('show');") End Sub diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb index a47729cf5..9e4dcebc6 100644 --- a/Bancos/PagoElectronico.aspx.vb +++ b/Bancos/PagoElectronico.aspx.vb @@ -179,13 +179,15 @@ Partial Class Bancos_PagoElectronico CargaCuentas() CargaProveedores() - InicializaDatosGenerales() - - + InicializaDatosGenerales() + + End If - End Sub - - + End Sub + + + + #Region " C A R G A - D A T O S " Private Sub CargaCuentas() DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("UsaLayout = 1") @@ -1554,24 +1556,23 @@ Partial Class Bancos_PagoElectronico If ObjIE.UpdateBancos_IENotificaciones(2, "-1", "-1", ArrayCveIEs(index).ToEntero) Then 'Obtenemos los correos del movimiento - If ArrayCorreos(index) <> "-1" Or ArrayCorreos(index) <> "" Then - - 'Dim CorreosMovto() = ArrayCorreos(index).Split(";"c) - 'For index2 = 0 To CorreosMovto.Length - 1 - ' If CorreosMovto(index2).Length > 5 Then - ' End If - 'Next - + If ArrayCorreos(index) <> "-1" Or ArrayCorreos(index) <> "" Then + + + Dim Param As New List(Of String) + Param.Add(ArrayCveIEs(index).ToString) Param.Add(ArrayCorreos(index)) 'Para - Param.Add("Notificación de Pago") 'Asunto - - Param.Add(GeneraCorreo2(DtPago.Rows(index), ObjIE, ArrayCveIEs(index).ToEntero)) 'Body - - Dim Hilo As New Threading.Thread(AddressOf MandaCorreo) - ArregloHilos.Add(Hilo) + 'Param.Add("Notificación de Pago") 'Asunto + 'Param.Add(GeneraCorreo2(DtPago.Rows(index), ObjIE, ArrayCveIEs(index).ToEntero)) 'Body + + ' EnviarCorreoNotificacion() + 'Dim Hilo As New Threading.Thread(AddressOf MandaCorreo) + 'ArregloHilos.Add(Hilo) + ArregloParametros.Add(Param) + End If Else ErrorDB = True @@ -1597,11 +1598,26 @@ Partial Class Bancos_PagoElectronico ObjIE.Commit() 'ObjIE.RollBack() - 'EMPIEZA A ENVIAR CORREO POR HILOS - For index = 0 To ArregloHilos.Count - 1 - ArregloHilos(index).Start(ArregloParametros(index)) - Next + ''EMPIEZA A ENVIAR CORREO POR HILOS + 'For index = 0 To ArregloHilos.Count - 1 + ' ArregloHilos(index).Start(ArregloParametros(index)) + 'Next + For Each ObjParametros As Object In ArregloParametros + + Dim Parametros As List(Of String) = DirectCast(ObjParametros, List(Of String)) + + Dim CveIENotificar As Integer = Parametros(0).ToEntero + Dim NotificarA As String = Parametros(1) + + EnviarCorreoNotificacion(CveIENotificar, NotificarA, "", UsuarioActual, False) + + Next + + + + + Respuesta.Append("

NOTA: El archivo se analizo correctamente y se efectuaron todos los cambios en el sistema.") Alert(Respuesta.ToString, TipoMensaje.MsgInformacion) @@ -1855,12 +1871,11 @@ Partial Class Bancos_PagoElectronico ''''' ARMADO DEL TEXTO COMPLETO TextoCompleto = String.Format("{1}{0}{2}{0}{3}{0}", vbCrLf, HeaderTexto, DetalleTexto, TrailerTexto) 'TxtAltas.Text = TextoCompleto - End Sub + End Sub #End Region - - - - 'TABS + + + 'TABS #Region "R E P O R T E S" Protected Sub BtnConsultarReportes_Click(sender As Object, e As EventArgs) CargaReporte() @@ -1959,717 +1974,762 @@ Partial Class Bancos_PagoElectronico - End Sub + End Sub #End Region - - - - 'CORREO + + + + 'CORREO #Region " GENERA Y MANDA CORREO " - Private Sub MandaCorreo(data As Object) - Dim Parametros As List(Of String) = DirectCast(data, List(Of String)) - - Dim Mail As New ClsSisMail() - Dim Para As String = Parametros(0) - Dim Asunto As String = Parametros(1) - Dim Body As String = Parametros(2) - - 'NO SE OCUPAN - 'Dim CveIE As Integer = Parametros(3).ToEntero - 'Dim CveTipoTransaccion As Integer = Parametros(4).ToEntero - 'Dim Estatus As Integer = If(CveTipoTransaccion = 2, 2, 1) ' cuando es transferencia, no lo pasa por entregar - - 'Mail.MandaCorreo(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body) - Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body) - End Sub - - Private Function GeneraCorreo(CveIE As Integer, objIE As ClsBancos) As String - Dim strBody As New StringBuilder - - If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" {0}", UsuarioActual.Empresa.Empresa) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.Direccion) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.Colonia) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.RFC) - strBody.AppendFormat(" ") - strBody.AppendFormat("
{0}
Col. {0}
{0}, {1}, C.P.{2}
RFC {0}
") - strBody.AppendFormat("
") - strBody.AppendFormat("


") - - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - - If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - End If - - If objIE.CveTipoTransaccion = 2 Then ' cuando es transf - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - End If - - strBody.Append(" ") - strBody.AppendFormat(" ") - strBody.Append(" ") - strBody.Append("
Usted puede pasar a recorger el cheque en las oficinas administrativas.
Se notifica el envío de transferencia de pago.
 
") - strBody.Append("
") - - - strBody.AppendFormat("
") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" Beneficiario:{0} ", objIE.PagueseA) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.Banco) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.FechaDocumento.ToString("dd/MM/yyyy")) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.Importe.FormatoNumero, objIE.Moneda) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.Observaciones) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat("
Movimiento:Transferencia Bancaria
Banco:{0}
Fecha:{0}
Importe:$ {0} {1}
Observaciones:{0}
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - - - - strBody.Append("
Favor de no responder a este correo.
") - - strBody.Append("") - End If - - Return strBody.ToString - End Function + + Private Sub EnviarCorreoNotificacion(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario, MostarAlert As Boolean) + + Try + Dim Hilo As New Threading.Thread(Sub() EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar)) + Hilo.Start() + + If MostarAlert Then + Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) + End If + + Catch ex As Exception + + If MostarAlert Then + Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError) + End If + + End Try + + End Sub + + Private Sub EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario) + + Try + Dim ObjBancos As New ClsBancos() + + + If ObjBancos.NotificacionPago(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar) Then + Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) + Else + Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError) + End If + + ObjBancos.Dispose() + + Catch ex As Exception + GuardaLog("Error al enviar notificación de pago PagoElectronico --> " & ex.StackTrace.ToString) + End Try + + + + End Sub + + + 'Private Sub MandaCorreo(data As Object) + ' Dim Parametros As List(Of String) = DirectCast(data, List(Of String)) + + ' Dim Mail As New ClsSisMail() + ' Dim Para As String = Parametros(0) + ' Dim Asunto As String = Parametros(1) + ' Dim Body As String = Parametros(2) + + ' 'NO SE OCUPAN + ' 'Dim CveIE As Integer = Parametros(3).ToEntero + ' 'Dim CveTipoTransaccion As Integer = Parametros(4).ToEntero + ' 'Dim Estatus As Integer = If(CveTipoTransaccion = 2, 2, 1) ' cuando es transferencia, no lo pasa por entregar + + ' 'Mail.MandaCorreo(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body) + ' Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body) + 'End Sub + + 'Private Function GeneraCorreo(CveIE As Integer, objIE As ClsBancos) As String + ' Dim strBody As New StringBuilder + + ' If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" {0}", UsuarioActual.Empresa.Empresa) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Direccion) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Colonia) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.RFC) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
{0}
Col. {0}
{0}, {1}, C.P.{2}
RFC {0}
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("


") + + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + + ' If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' End If + + ' If objIE.CveTipoTransaccion = 2 Then ' cuando es transf + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' End If + + ' strBody.Append(" ") + ' strBody.AppendFormat(" ") + ' strBody.Append(" ") + ' strBody.Append("
Usted puede pasar a recorger el cheque en las oficinas administrativas.
Se notifica el envío de transferencia de pago.
 
") + ' strBody.Append("
") + + + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" Beneficiario:{0} ", objIE.PagueseA) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.Banco) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.FechaDocumento.ToString("dd/MM/yyyy")) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.Importe.FormatoNumero, objIE.Moneda) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.Observaciones) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
Movimiento:Transferencia Bancaria
Banco:{0}
Fecha:{0}
Importe:$ {0} {1}
Observaciones:{0}
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + + + + ' strBody.Append("
Favor de no responder a este correo.
") + + ' strBody.Append("") + ' End If + + ' Return strBody.ToString + 'End Function + #End Region #Region " GENERA CORREO 2" - Private Function GeneraCorreo2(Dr As DataRow, ByRef ObjIE As ClsBancos, CveIE As Integer) As String - Dim strBody As New StringBuilder - - - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append("
") - strBody.Append("

") - - - 'strBody.Append(" De: Bancomer.com [mailto:alertatdu@serviciobancomer.com]
") - - strBody.Append("

") - strBody.AppendFormat(" ", UrlSitio) - strBody.Append("
") - - - strBody.AppendFormat(" Enviado el: {0} {1}
", Date.Now.ToLongDateString, Date.Now.ToShortTimeString) - strBody.AppendFormat(" Para:{0}
", If(UsuarioActual.CveEmpresa = 66, "PAGOS@GLUYASCONSTRUCCIONES.COM", "")) - strBody.Append(" Asunto: CONFIRMACION SIT DISPERSION ") - strBody.Append("

") - strBody.Append("

") - strBody.Append("   ") - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.AppendFormat(" ", UrlSitio) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append("   ") - strBody.Append("

") - strBody.Append("

") - strBody.Append(" Confirmación de pago realizado bajo las siguientes condiciones: ") - strBody.Append("

") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append("
") - strBody.Append(" ") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" NOMBRE DEL CLIENTE: ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" {0} ", UsuarioActual.Empresa.Empresa) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" NÚMERO DE CONVENIO: ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" {0} ", Dr("NumeroConvenio").ToString) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" CLAVE DEL PROVEEDOR: ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" {0} ", Dr("ClaveProveedor").ToString) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" NOMBRE DEL PROVEEDOR/TERCERO: ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" {0} ", Dr("Proveedor").ToString) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" REFERENCIA DEL PAGO: ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" {0} ", Dr("ReferenciaPago").ToString) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" TIPO DE PAGO: ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" {0} ", Dr("TipoPago").ToString) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" CUENTA DE ABONO: ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" {0} ", Dr("Cuenta").ToString) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" IMPORTE DEL PAGO: ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" ${0}  ", Dr("Importe").ToString.FormatoNumero) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" FECHA DE OPERACIÓN ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" {0} ", Dr("FechaOperacion").ToString) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" MENSAJE ADICIONAL: ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" {0} ", Dr("Observaciones").ToString.PadRight(70, " "c).Replace(" ", " ")) - strBody.Append("

") - strBody.Append("
") - - - - strBody.Append("
") - strBody.AppendFormat(" ", UrlSitio) - strBody.Append("
") - - - - strBody.Append("

") - strBody.Append("   ") - strBody.Append("

") - strBody.Append("

") - strBody.Append("   ") - strBody.Append("

") - strBody.Append("

") - strBody.Append("   ") - strBody.Append("

") - strBody.Append("

") - strBody.Append("   ") - strBody.Append("

") - strBody.Append("

") - strBody.Append("   ") - strBody.Append("

") - - - If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then - If ObjIE.DtResultados.Rows.Count > 0 Then - Dim dtMovs As DataTable - - Dim Mov As New ClsContabilidad - If Mov.GetPrePolizasDetalle(-1, CveIE) Then - dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17)") - - strBody.Append(" ") - strBody.Append(" ") - - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - - For Each Dr2 As DataRow In dtMovs.Rows - strBody.Append(" ") - strBody.Append($" ") - strBody.Append($" ") - strBody.Append($" ") - strBody.Append($" ") - strBody.Append($" ") - strBody.Append($" ") - strBody.Append(" ") - Next - - strBody.Append(" ") - strBody.Append("
Listado de facturas pagadas
Factura ") - strBody.Append(" Fecha ") - strBody.Append(" Original ") - strBody.Append(" Abonado ") - strBody.Append(" Nota Crédito ") - strBody.Append(" Saldo ") - strBody.Append("
{Dr2("SerieFolio")}{Dr2("FechaCompra").ToString.ToDate.ToShortDateString}{Dr2("Total").ToString.ToDouble.FormatoNumero}{Dr2("Importe").ToString.ToDouble.FormatoNumero}{Dr2("ImporteNC").ToString.ToDouble.FormatoNumero}{Dr2("Saldo").ToString.ToDouble.FormatoNumero}
") - - strBody.Append("
") - strBody.Append(" ") - strBody.Append(" ") - - End If - Mov.Dispose() - - End If - End If - - Return strBody.ToString - End Function + 'Private Function GeneraCorreo2(Dr As DataRow, ByRef ObjIE As ClsBancos, CveIE As Integer) As String + ' Dim strBody As New StringBuilder + + + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append("
") + ' strBody.Append("

") + + + ' 'strBody.Append(" De: Bancomer.com [mailto:alertatdu@serviciobancomer.com]
") + + ' strBody.Append("

") + ' strBody.AppendFormat(" ", UrlSitio) + ' strBody.Append("
") + + + ' strBody.AppendFormat(" Enviado el: {0} {1}
", Date.Now.ToLongDateString, Date.Now.ToShortTimeString) + ' strBody.AppendFormat(" Para:{0}
", If(UsuarioActual.CveEmpresa = 66, "PAGOS@GLUYASCONSTRUCCIONES.COM", "")) + ' strBody.Append(" Asunto: CONFIRMACION SIT DISPERSION ") + ' strBody.Append("

") + ' strBody.Append("

") + ' strBody.Append("   ") + ' strBody.Append("

") + ' strBody.Append("
") + ' strBody.Append("

") + ' strBody.AppendFormat(" ", UrlSitio) + ' strBody.Append("

") + ' strBody.Append("
") + ' strBody.Append("

") + ' strBody.Append("   ") + ' strBody.Append("

") + ' strBody.Append("

") + ' strBody.Append(" Confirmación de pago realizado bajo las siguientes condiciones: ") + ' strBody.Append("

") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append("
") + ' strBody.Append(" ") + ' strBody.Append("
") + ' strBody.Append("

") + ' strBody.Append(" NOMBRE DEL CLIENTE: ") + ' strBody.Append("

") + ' strBody.Append(" 		") + ' strBody.Append("

") + ' strBody.AppendFormat(" {0} ", UsuarioActual.Empresa.Empresa) + ' strBody.Append("

") + ' strBody.Append("
") + ' strBody.Append("

") + ' strBody.Append(" NÚMERO DE CONVENIO: ") + ' strBody.Append("

") + ' strBody.Append(" 		") + ' strBody.Append("

") + ' strBody.AppendFormat(" {0} ", Dr("NumeroConvenio").ToString) + ' strBody.Append("

") + ' strBody.Append("
") + ' strBody.Append("

") + ' strBody.Append(" CLAVE DEL PROVEEDOR: ") + ' strBody.Append("

") + ' strBody.Append(" 		") + ' strBody.Append("

") + ' strBody.AppendFormat(" {0} ", Dr("ClaveProveedor").ToString) + ' strBody.Append("

") + ' strBody.Append("
") + ' strBody.Append("

") + ' strBody.Append(" NOMBRE DEL PROVEEDOR/TERCERO: ") + ' strBody.Append("

") + ' strBody.Append(" 		") + ' strBody.Append("

") + ' strBody.AppendFormat(" {0} ", Dr("Proveedor").ToString) + ' strBody.Append("

") + ' strBody.Append("
") + ' strBody.Append("

") + ' strBody.Append(" REFERENCIA DEL PAGO: ") + ' strBody.Append("

") + ' strBody.Append(" 		") + ' strBody.Append("

") + ' strBody.AppendFormat(" {0} ", Dr("ReferenciaPago").ToString) + ' strBody.Append("

") + ' strBody.Append("
") + ' strBody.Append("

") + ' strBody.Append(" TIPO DE PAGO: ") + ' strBody.Append("

") + ' strBody.Append(" 		") + ' strBody.Append("

") + ' strBody.AppendFormat(" {0} ", Dr("TipoPago").ToString) + ' strBody.Append("

") + ' strBody.Append("
") + ' strBody.Append("

") + ' strBody.Append(" CUENTA DE ABONO: ") + ' strBody.Append("

") + ' strBody.Append(" 		") + ' strBody.Append("

") + ' strBody.AppendFormat(" {0} ", Dr("Cuenta").ToString) + ' strBody.Append("

") + ' strBody.Append("
") + ' strBody.Append("

") + ' strBody.Append(" IMPORTE DEL PAGO: ") + ' strBody.Append("

") + ' strBody.Append(" 		") + ' strBody.Append("

") + ' strBody.AppendFormat(" ${0}  ", Dr("Importe").ToString.FormatoNumero) + ' strBody.Append("

") + ' strBody.Append("
") + ' strBody.Append("

") + ' strBody.Append(" FECHA DE OPERACIÓN ") + ' strBody.Append("

") + ' strBody.Append(" 		") + ' strBody.Append("

") + ' strBody.AppendFormat(" {0} ", Dr("FechaOperacion").ToString) + ' strBody.Append("

") + ' strBody.Append("
") + ' strBody.Append("

") + ' strBody.Append(" MENSAJE ADICIONAL: ") + ' strBody.Append("

") + ' strBody.Append(" 		") + ' strBody.Append("

") + ' strBody.AppendFormat(" {0} ", Dr("Observaciones").ToString.PadRight(70, " "c).Replace(" ", " ")) + ' strBody.Append("

") + ' strBody.Append("
") - Private Function GeneraCorreo(CveIE As Integer) As String - - Dim strBody As New StringBuilder - Dim objIE As New ClsBancos - - If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" {0}", UsuarioActual.Empresa.Empresa) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.Direccion) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.Colonia) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.RFC) - strBody.AppendFormat(" ") - strBody.AppendFormat("
{0}
Col. {0}
{0}, {1}, C.P.{2}
RFC {0}
") - strBody.AppendFormat("
") - strBody.AppendFormat("


") - - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - - If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - End If - - If objIE.CveTipoTransaccion = 2 Then ' cuando es transf - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - End If - - strBody.Append(" ") - strBody.AppendFormat(" ") - strBody.Append(" ") - strBody.Append("
Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.
Notificación de transferencia de pago realizada.
 
") - strBody.AppendFormat("
") - strBody.Append("
") + ' strBody.Append("
") + ' strBody.AppendFormat(" ", UrlSitio) + ' strBody.Append("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" Beneficiario:{0} ", objIE.PagueseA) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.TipoTransaccion) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.Banco) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.NumCuenta) - strBody.AppendFormat(" ") - If objIE.CuentaDepositado.ToString <> "" Then - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.CuentaDepositado) - strBody.AppendFormat(" ") - End If - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.FechaDocumento.ToString("dd/MM/yyyy")) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.Importe.FormatoNumero, objIE.Moneda) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.Observaciones) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat("
Movimiento:{0}
Banco:{0}
Cuenta:{0}
Cuenta Destino:{0}
Fecha:{0}
Importe:$ {0} {1}
Observaciones:{0}
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") + + ' strBody.Append("

") + ' strBody.Append("   ") + ' strBody.Append("

") + ' strBody.Append("

") + ' strBody.Append("   ") + ' strBody.Append("

") + ' strBody.Append("

") + ' strBody.Append("   ") + ' strBody.Append("

") + ' strBody.Append("

") + ' strBody.Append("   ") + ' strBody.Append("

") + ' strBody.Append("

") + ' strBody.Append("   ") + ' strBody.Append("

") - 'MOVIMIENTOS CHEQUE - If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then - Dim Textov33 As String = "" - If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then - Textov33 = "Favor de emitir complemento de pago de los siguientes documentos" - End If + ' If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then + ' If ObjIE.DtResultados.Rows.Count > 0 Then + ' Dim dtMovs As DataTable - strBody.AppendFormat("
") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", dr("Fecha").ToString.ToDate.ToShortDateString()) - strBody.AppendFormat(" ", dr("SerieFolio").ToString) - strBody.AppendFormat(" ", dr("Importe").ToString.FormatoNumero) - strBody.AppendFormat(" ", dr("FolioFiscal")) - strBody.AppendFormat(" ", dr("ImporteNC").ToString.FormatoNumero) - strBody.AppendFormat(" ") - Next + + 'Private Function GeneraCorreo(CveIE As Integer) As String + + ' Dim strBody As New StringBuilder + ' Dim objIE As New ClsBancos + + ' If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" {0}", UsuarioActual.Empresa.Empresa) + ' strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" Documentos abonados o pagados
{0} ", Textov33) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") + ' Dim Mov As New ClsContabilidad + ' If Mov.GetPrePolizasDetalle(-1, CveIE) Then + ' dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17)") + + ' strBody.Append("
FechaFacturaImporte ($)Folio FiscalNC Aplicadas
") + ' strBody.Append(" ") + + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + + ' For Each Dr2 As DataRow In dtMovs.Rows + ' strBody.Append(" ") + ' strBody.Append($" ") + ' strBody.Append($" ") + ' strBody.Append($" ") + ' strBody.Append($" ") + ' strBody.Append($" ") + ' strBody.Append($" ") + ' strBody.Append(" ") + ' Next + + ' strBody.Append(" ") + ' strBody.Append("
Listado de facturas pagadas
Factura ") + ' strBody.Append(" Fecha ") + ' strBody.Append(" Original ") + ' strBody.Append(" Abonado ") + ' strBody.Append(" Nota Crédito ") + ' strBody.Append(" Saldo ") + ' strBody.Append("
{Dr2("SerieFolio")}{Dr2("FechaCompra").ToString.ToDate.ToShortDateString}{Dr2("Total").ToString.ToDouble.FormatoNumero}{Dr2("Importe").ToString.ToDouble.FormatoNumero}{Dr2("ImporteNC").ToString.ToDouble.FormatoNumero}{Dr2("Saldo").ToString.ToDouble.FormatoNumero}
") + + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + + ' End If + ' Mov.Dispose() + + ' End If + ' End If + + ' Return strBody.ToString + 'End Function - For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows - strBody.AppendFormat("
{0}{0}$ {0}{0}{0}
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Direccion) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Colonia) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.RFC) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
{0}
Col. {0}
{0}, {1}, C.P.{2}
RFC {0}
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("


") + + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + + ' If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' End If + + ' If objIE.CveTipoTransaccion = 2 Then ' cuando es transf + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' End If + + ' strBody.Append(" ") + ' strBody.AppendFormat(" ") + ' strBody.Append(" ") + ' strBody.Append("
Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.
Notificación de transferencia de pago realizada.
 
") + ' strBody.AppendFormat("
") + ' strBody.Append("
") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat("
") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat("
") - End If + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" Beneficiario:{0} ", objIE.PagueseA) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.TipoTransaccion) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.Banco) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.NumCuenta) + ' strBody.AppendFormat(" ") + ' If objIE.CuentaDepositado.ToString <> "" Then + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.CuentaDepositado) + ' strBody.AppendFormat(" ") + ' End If + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.FechaDocumento.ToString("dd/MM/yyyy")) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.Importe.FormatoNumero, objIE.Moneda) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.Observaciones) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
Movimiento:{0}
Banco:{0}
Cuenta:{0}
Cuenta Destino:{0}
Fecha:{0}
Importe:$ {0} {1}
Observaciones:{0}
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") - strBody.Append("
Favor de no responder a este correo.
") - strBody.Append("") - End If + ' 'MOVIMIENTOS CHEQUE + ' If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then + ' Dim Textov33 As String = "" + ' If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then + ' Textov33 = "Favor de emitir complemento de pago de los siguientes documentos" + ' End If - objIE.Dispose() - Return strBody.ToString - End Function + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" Documentos abonados o pagados
{0} ", Textov33) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + + + ' For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", dr("Fecha").ToString.ToDate.ToShortDateString()) + ' strBody.AppendFormat(" ", dr("SerieFolio").ToString) + ' strBody.AppendFormat(" ", dr("Importe").ToString.FormatoNumero) + ' strBody.AppendFormat(" ", dr("FolioFiscal")) + ' strBody.AppendFormat(" ", dr("ImporteNC").ToString.FormatoNumero) + ' strBody.AppendFormat(" ") + ' Next + + + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
FechaFacturaImporte ($)Folio FiscalNC Aplicadas
{0}{0}$ {0}{0}{0}
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' End If + + ' strBody.Append("
Favor de no responder a este correo.
") + + ' strBody.Append("") + ' End If + + ' objIE.Dispose() + ' Return strBody.ToString + 'End Function #End Region diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb index b784fb90d..8ff8ceec9 100644 --- a/Bancos/PagoElectronicoGrupos.aspx.vb +++ b/Bancos/PagoElectronicoGrupos.aspx.vb @@ -2139,485 +2139,159 @@ Partial Class Bancos_PagoElectronicoGrupos 'End Sub - Private Function GeneraCorreo(CveIE As Integer, objIE As ClsBancos) As String - Dim strBody As New StringBuilder - - If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" {0}", UsuarioActual.Empresa.Empresa) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.Direccion) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.Colonia) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.RFC) - strBody.AppendFormat(" ") - strBody.AppendFormat("
{0}
Col. {0}
{0}, {1}, C.P.{2}
RFC {0}
") - strBody.AppendFormat("
") - strBody.AppendFormat("


") - - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") + 'Private Function GeneraCorreo(CveIE As Integer, objIE As ClsBancos) As String + ' Dim strBody As New StringBuilder - 'If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque - ' strBody.Append(" ") - ' strBody.Append(" ") - ' strBody.Append(" ") - 'End If + ' If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" {0}", UsuarioActual.Empresa.Empresa) + ' strBody.AppendFormat("
Usted puede pasar a recorger el cheque en las oficinas administrativas.
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Direccion) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Colonia) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.RFC) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
{0}
Col. {0}
{0}, {1}, C.P.{2}
RFC {0}
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("


") - ' If objIE.CveTipoTransaccion = 2 Then ' cuando es transf - strBody.Append(" ") - strBody.Append(" Se notifica el envío de transferencia de pago. ") - strBody.Append(" ") - ' End If + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") - strBody.Append(" ") - strBody.AppendFormat(" ") - strBody.Append(" ") - strBody.Append("
 
") - strBody.Append("
") - - - strBody.AppendFormat("
") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" Beneficiario:{0} ", objIE.PagueseA) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.Banco) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.FechaDocumento.ToString("dd/MM/yyyy")) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.Importe.FormatoNumero, objIE.Moneda) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.Observaciones) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat("
Movimiento:Transferencia Bancaria
Banco:{0}
Fecha:{0}
Importe:$ {0} {1}
Observaciones:{0}
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - - - - strBody.Append("
Favor de no responder a este correo.
") - - strBody.Append("") - End If - - Return strBody.ToString - End Function + ' 'If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque + ' ' strBody.Append(" ") + ' ' strBody.Append(" Usted puede pasar a recorger el cheque en las oficinas administrativas. ") + ' ' strBody.Append(" ") + ' 'End If + + ' ' If objIE.CveTipoTransaccion = 2 Then ' cuando es transf + ' strBody.Append(" ") + ' strBody.Append(" Se notifica el envío de transferencia de pago. ") + ' strBody.Append(" ") + ' ' End If + + ' strBody.Append(" ") + ' strBody.AppendFormat("   ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append("
") + + + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" Beneficiario:{0} ", objIE.PagueseA) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.Banco) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.FechaDocumento.ToString("dd/MM/yyyy")) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.Importe.FormatoNumero, objIE.Moneda) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.Observaciones) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
Movimiento:Transferencia Bancaria
Banco:{0}
Fecha:{0}
Importe:$ {0} {1}
Observaciones:{0}
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + + + + ' strBody.Append("
Favor de no responder a este correo.
") + + ' strBody.Append("") + ' End If + + ' Return strBody.ToString + 'End Function #End Region -#Region " GENERA CORREO 2" - Private Function GeneraCorreo2(Dr As DataRow, ByRef ObjIE As ClsBancos, CveIE As Integer) As String - Dim strBody As New StringBuilder - - - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append("
") - strBody.Append("

") - - - 'strBody.Append(" De: Bancomer.com [mailto:alertatdu@serviciobancomer.com]
") - - strBody.Append("

") - strBody.AppendFormat(" ", UrlSitio) - strBody.Append("
") - - - strBody.AppendFormat(" Enviado el: {0} {1}
", Date.Now.ToLongDateString, Date.Now.ToShortTimeString) - strBody.AppendFormat(" Para:{0}
", If(UsuarioActual.CveEmpresa = 66, "PAGOS@GLUYASCONSTRUCCIONES.COM", "")) - strBody.Append(" Asunto: CONFIRMACION SIT DISPERSION ") - strBody.Append("

") - strBody.Append("

") - strBody.Append("   ") - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.AppendFormat(" ", UrlSitio) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append("   ") - strBody.Append("

") - strBody.Append("

") - strBody.Append(" Confirmación de pago realizado bajo las siguientes condiciones: ") - strBody.Append("

") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append("
") - strBody.Append(" ") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" NOMBRE DEL CLIENTE: ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" {0} ", UsuarioActual.Empresa.Empresa) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" NÚMERO DE CONVENIO: ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" {0} ", Dr("NumeroConvenio").ToString) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" CLAVE DEL PROVEEDOR: ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" {0} ", Dr("ClaveProveedor").ToString) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" NOMBRE DEL PROVEEDOR/TERCERO: ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" {0} ", Dr("Proveedor").ToString) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" REFERENCIA DEL PAGO: ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" {0} ", Dr("ReferenciaPago").ToString) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" TIPO DE PAGO: ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" {0} ", Dr("TipoPago").ToString) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" CUENTA DE ABONO: ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" {0} ", Dr("Cuenta").ToString) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" IMPORTE DEL PAGO: ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" ${0}  ", Dr("Importe").ToString.FormatoNumero) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" FECHA DE OPERACIÓN ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" {0} ", Dr("FechaOperacion").ToString) - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" MENSAJE ADICIONAL: ") - strBody.Append("

") - strBody.Append(" 		") - strBody.Append("

") - strBody.AppendFormat(" {0} ", Dr("Observaciones").ToString.PadRight(70, " "c).Replace(" ", " ")) - strBody.Append("

") - strBody.Append("
") - - - - strBody.Append("
") - strBody.AppendFormat(" ", UrlSitio) - strBody.Append("
") - - - - strBody.Append("

") - strBody.Append("   ") - strBody.Append("

") - strBody.Append("

") - strBody.Append("   ") - strBody.Append("

") - strBody.Append("

") - strBody.Append("   ") - strBody.Append("

") - strBody.Append("

") - strBody.Append("   ") - strBody.Append("

") - strBody.Append("

") - strBody.Append("   ") - strBody.Append("

") - - - If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then - If ObjIE.DtResultados.Rows.Count > 0 Then - Dim dtMovs As DataTable - - Dim Mov As New ClsContabilidad - If Mov.GetPrePolizasDetalle(-1, CveIE) Then - dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17)") - - strBody.Append(" ") - strBody.Append(" ") - - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - - For Each Dr2 As DataRow In dtMovs.Rows - strBody.Append(" ") - strBody.Append($" ") - strBody.Append($" ") - strBody.Append($" ") - strBody.Append($" ") - strBody.Append($" ") - strBody.Append($" ") - strBody.Append(" ") - Next - - strBody.Append(" ") - strBody.Append("
Listado de facturas pagadas
Factura ") - strBody.Append(" Fecha ") - strBody.Append(" Original ") - strBody.Append(" Abonado ") - strBody.Append(" Nota Crédito ") - strBody.Append(" Saldo ") - strBody.Append("
{Dr2("SerieFolio")}{Dr2("FechaCompra").ToString.ToDate.ToShortDateString}{Dr2("Total").ToString.ToDouble.FormatoNumero}{Dr2("Importe").ToString.ToDouble.FormatoNumero}{Dr2("ImporteNC").ToString.ToDouble.FormatoNumero}{Dr2("Saldo").ToString.ToDouble.FormatoNumero}
") - - strBody.Append("
") - strBody.Append(" ") - strBody.Append(" ") - - End If - Mov.Dispose() - - End If - End If - - Return strBody.ToString - End Function - - -#End Region @@ -3019,8 +2693,8 @@ Partial Class Bancos_PagoElectronicoGrupos FDestino = "" End If - NotificacionPago(CveIE, NotificarA, FDestino) - + 'NotificacionPago(CveIE, NotificarA, FDestino) + EnviarCorreoNotificacion(CveIE, NotificarA, "", UsuarioActual, False) CargaEnviados() For Each RowGV As GridViewRow In GvEnviadas.Rows @@ -3330,273 +3004,320 @@ Partial Class Bancos_PagoElectronicoGrupos End Sub - Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String, RutaComprobante As String) - - Dim Body As String = GeneraCorreo(CveIE) - 'Dim Comprobante As String = "" - - Dim File As Byte() = Nothing - - Dim Hilo As New Threading.Thread(Sub() MandaCorreo(CorreoNotificarA, "Notificaciones de pago", Body, CveIE, RutaComprobante, File)) - Hilo.Start() + 'Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String, RutaComprobante As String) + + ' If CorreoNotificarA.Length > 0 Then + ' Dim Body As String = GeneraCorreo(CveIE) + ' 'Dim Comprobante As String = "" + + ' Dim File As Byte() = Nothing + + ' Dim Hilo As New Threading.Thread(Sub() MandaCorreo(CorreoNotificarA, "Notificaciones de pago", Body, CveIE, RutaComprobante, File)) + ' Hilo.Start() + ' End If + + + + + 'End Sub + + + Private Sub EnviarCorreoNotificacion(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario, MostarAlert As Boolean) + + Try + Dim Hilo As New Threading.Thread(Sub() EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar)) + Hilo.Start() + + + If MostarAlert Then + Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) + End If + + Catch ex As Exception + + If MostarAlert Then + Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError) + End If + + + End Try End Sub - Private Sub MandaCorreo(Para As String, Asunto As String, Body As String, CveIE As Integer, Comprobante As String, File As Byte()) + Private Sub EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario) + Try - Dim Mail As New ClsSisMail() - Para = If(Para IsNot Nothing, Para, "") - Asunto = If(Asunto IsNot Nothing, Asunto, "") - Body = If(Body IsNot Nothing, Body, "") + Dim ObjBancos As New ClsBancos() - Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail) - If Comprobante IsNot Nothing AndAlso Comprobante <> "" Then - ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = Comprobante}) + If ObjBancos.NotificacionPago(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar) Then + Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) + Else + Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError) End If - If File IsNot Nothing Then - ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoCuentaCxP.pdf"}) - End If + ObjBancos.Dispose() - Dim separador As Char() = {";"c, ","c} - Dim strArray As String() = Para.Split(separador) - - Para = "" - - For Each sCorreo As String In strArray - If ClsSisMail.IsMailShared(sCorreo) And sCorreo.Trim.Length > 0 Then - Para = $"{Para}{sCorreo};" - End If - Next - - Para = Para.Substring(0, Para.Length - 1) - - If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos, Displayname:=$"SIG Notificaciones: Pago de {UsuarioActual.Empresa.Empresa}") Then - Dim objIE As New ClsBancos - objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE) - objIE.Dispose() - End If Catch ex As Exception - OnError("Ocurrio un error al enviar el correo", ex) + GuardaLog("Error al enviar notificación de pago PagoElectronicoGrupos --> " & ex.StackTrace.ToString) End Try End Sub + 'Private Sub MandaCorreo(Para As String, Asunto As String, Body As String, CveIE As Integer, Comprobante As String, File As Byte()) + ' Try + ' Dim Mail As New ClsSisMail() + ' Para = If(Para IsNot Nothing, Para, "") + ' Asunto = If(Asunto IsNot Nothing, Asunto, "") + ' Body = If(Body IsNot Nothing, Body, "") + + ' Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail) + ' If Comprobante IsNot Nothing AndAlso Comprobante <> "" Then + ' ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = Comprobante}) + ' End If + + ' If File IsNot Nothing Then + ' ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoCuentaCxP.pdf"}) + ' End If + + ' Dim separador As Char() = {";"c, ","c} + ' Dim strArray As String() = Para.Split(separador) + + ' Para = "" + + ' For Each sCorreo As String In strArray + ' If ClsSisMail.IsMailShared(sCorreo) And sCorreo.Trim.Length > 0 Then + ' Para = $"{Para}{sCorreo};" + ' End If + ' Next + + ' Para = Para.Substring(0, Para.Length - 1) + + ' If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos, Displayname:=$"SIG Notificaciones: Pago de {UsuarioActual.Empresa.Empresa}") Then + ' Dim objIE As New ClsBancos + ' objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE) + ' objIE.Dispose() + ' End If + ' Catch ex As Exception + ' OnError("Ocurrio un error al enviar el correo", ex) + ' End Try + + 'End Sub - Private Function GeneraCorreo(CveIE As Integer) As String - Dim strBody As New StringBuilder - Dim objIE As New ClsBancos + 'Private Function GeneraCorreo(CveIE As Integer) As String - If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" {0}", UsuarioActual.Empresa.Empresa) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.Direccion) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.Colonia) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.RFC) - strBody.AppendFormat(" ") - strBody.AppendFormat("
{0}
Col. {0}
{0}, {1}, C.P.{2}
RFC {0}
") - strBody.AppendFormat("
") - strBody.AppendFormat("


") + ' Dim strBody As New StringBuilder + ' Dim objIE As New ClsBancos - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") + ' If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" {0}", UsuarioActual.Empresa.Empresa) + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Direccion) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Colonia) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.RFC) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
{0}
Col. {0}
{0}, {1}, C.P.{2}
RFC {0}
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("


") - 'If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque - ' strBody.Append(" ") - ' strBody.Append(" Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones. ") - ' strBody.Append(" ") - 'End If + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") - 'If objIE.CveTipoTransaccion = 2 Then ' cuando es transf - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - 'End If + ' 'If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque + ' ' strBody.Append(" ") + ' ' strBody.Append(" ") + ' ' strBody.Append(" ") + ' 'End If - strBody.Append(" ") - strBody.AppendFormat(" ") - strBody.Append(" ") - strBody.Append("
Notificación de transferencia de pago realizada.
Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.
 
") - strBody.AppendFormat("
") - strBody.Append("
") + ' 'If objIE.CveTipoTransaccion = 2 Then ' cuando es transf + ' strBody.Append(" ") + ' strBody.Append(" Notificación de transferencia de pago realizada. ") + ' strBody.Append(" ") + ' 'End If + + ' strBody.Append(" ") + ' strBody.AppendFormat("   ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.AppendFormat(" ") + ' strBody.Append("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" Beneficiario:{0} ", objIE.PagueseA) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.TipoTransaccion) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.Banco) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.NumCuenta) - strBody.AppendFormat(" ") - If objIE.CuentaDepositado.ToString <> "" Then - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.CuentaDepositado) - strBody.AppendFormat(" ") - End If - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.FechaDocumento.ToString("dd/MM/yyyy")) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.Importe.FormatoNumero, objIE.Moneda) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.Observaciones) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat("
Movimiento:{0}
Banco:{0}
Cuenta:{0}
Cuenta Destino:{0}
Fecha:{0}
Importe:$ {0} {1}
Observaciones:{0}
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" Beneficiario:{0} ", objIE.PagueseA) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.TipoTransaccion) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.Banco) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.NumCuenta) + ' strBody.AppendFormat(" ") + ' If objIE.CuentaDepositado.ToString <> "" Then + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.CuentaDepositado) + ' strBody.AppendFormat(" ") + ' End If + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.FechaDocumento.ToString("dd/MM/yyyy")) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.Importe.FormatoNumero, objIE.Moneda) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.Observaciones) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
Movimiento:{0}
Banco:{0}
Cuenta:{0}
Cuenta Destino:{0}
Fecha:{0}
Importe:$ {0} {1}
Observaciones:{0}
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") - 'MOVIMIENTOS CHEQUE - If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then - Dim Textov33 As String = "" - If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then - Textov33 = "Favor de emitir complemento de pago de los siguientes documentos" - End If + ' 'MOVIMIENTOS CHEQUE + ' If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then + ' Dim Textov33 As String = "" + ' If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then + ' Textov33 = "Favor de emitir complemento de pago de los siguientes documentos" + ' End If - strBody.AppendFormat("
") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" Documentos abonados o pagados
{0} ", Textov33) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
FechaFacturaImporte ($)Folio FiscalNC Aplicadas
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" Documentos abonados o pagados
{0} ", Textov33) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") - For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", dr("Fecha").ToString.ToDate.ToShortDateString()) - strBody.AppendFormat(" ", dr("SerieFolio").ToString) - strBody.AppendFormat(" ", dr("Importe").ToString.FormatoNumero) - strBody.AppendFormat(" ", dr("FolioFiscal")) - strBody.AppendFormat(" ", dr("ImporteNC").ToString.FormatoNumero) - strBody.AppendFormat(" ") - Next + ' For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", dr("Fecha").ToString.ToDate.ToShortDateString()) + ' strBody.AppendFormat(" ", dr("SerieFolio").ToString) + ' strBody.AppendFormat(" ", dr("Importe").ToString.FormatoNumero) + ' strBody.AppendFormat(" ", dr("FolioFiscal")) + ' strBody.AppendFormat(" ", dr("ImporteNC").ToString.FormatoNumero) + ' strBody.AppendFormat(" ") + ' Next - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat("
FechaFacturaImporte ($)Folio FiscalNC Aplicadas
{0}{0}$ {0}{0}{0}
{0}{0}$ {0}{0}{0}
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("") - End If + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
") + ' End If - strBody.Append("
Favor de no responder a este correo.
") + ' strBody.Append("
Favor de no responder a este correo.
") - strBody.Append("") - End If + ' strBody.Append("") + ' End If - objIE.Dispose() - Return strBody.ToString + ' objIE.Dispose() + ' Return strBody.ToString - End Function + 'End Function diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index 7dd634876..639c41138 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -437,6 +437,22 @@ Partial Class Bancos_PopIECompras End Set End Property + Private Property NotificarA As String + Get + If ViewState("NotificarA") Is Nothing Then + Return "" + Else + Return ViewState("NotificarA").ToString + End If + + End Get + Set(value As String) + ViewState("NotificarA") = value + End Set + End Property + + + #End Region Private Sub Bancos_PopIECompras_Load(sender As Object, e As EventArgs) Handles Me.Load @@ -724,6 +740,10 @@ Partial Class Bancos_PopIECompras ViewState("CveCuentaRetIVA") = ObjProveedor.CveCuentaRetIVA ViewState("CveCuentaProveedorExtranjera") = ObjProveedor.CveCuentaProveedoresExtranjera ViewState("CveCuentaComplementaria") = ObjProveedor.CveCuentaProveedoresComplementaria + ViewState("NotificarA") = ObjProveedor.NotificarA.Trim() + + + Else Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia) End If @@ -3351,7 +3371,10 @@ Partial Class Bancos_PopIECompras If IdPoliza > 0 Then StrMsg.AppendFormat("
Ver Póliza", IdPoliza) End If - If RBLContado.SelectedValue.ToEntero = 6 And ChkEmitirComplementoPago.Checked Then GeneraTimbre(CvePrePoliza) Else Alert(StrMsg.ToString, TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();") + If RBLContado.SelectedValue.ToEntero = 6 And ChkEmitirComplementoPago.Checked Then GeneraTimbre(CvePrePoliza) Else Alert(StrMsg.ToString, TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();") + + EnviarCorreoNotificacion(CveIE, NotificarA, "", UsuarioActual, False) + Else ObjIE.RollBack() Alert(MsgError, TipoMensaje.MsgError) @@ -3359,11 +3382,60 @@ Partial Class Bancos_PopIECompras ObjIE.Dispose() ObjMov.Dispose() - End Sub + End Sub #End Region - + + +#Region "ENVIAR CORREO NOTIFICACION DE PAGO" + + + Private Sub EnviarCorreoNotificacion(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario, MostarAlert As Boolean) + + Try + Dim Hilo As New Threading.Thread(Sub() EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar)) + 'Dim Hilo As New Threading.Thread( EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar)) + Hilo.Start() + + + If MostarAlert Then + Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) + End If + + Catch ex As Exception + + If MostarAlert Then + Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError) + End If + + + End Try + End Sub + + Private Sub EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario) + + Try + Dim ObjBancos As New ClsBancos() + + If ObjBancos.NotificacionPago(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar) Then + Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) + Else + Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError) + End If + + ObjBancos.Dispose() + + Catch ex As Exception + GuardaLog("Error al enviar notificación de pago PopIECompras --> " & ex.StackTrace.ToString) + End Try + + + + End Sub + +#End Region + #Region "COMPLEMENTO DE PAGO" - + Private Sub GeneraTimbre(CvePrePoliza As Integer) Dim Str As New StringBuilder diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 5ce744e3b..c19a66acc 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -2365,7 +2365,8 @@ Partial Class Bancos_ProveedoresAbonar 'Notificación de Pago If TxtNotificarA.Text.Trim <> "" AndAlso ChkEnviarCorreo.Checked Then - NotificacionPago(CveIE, TxtNotificarA.Text.Trim) + 'NotificacionPago(CveIE, TxtNotificarA.Text.Trim) + EnviarCorreoNotificacion(CveIE, TxtNotificarA.Text.Trim, "", UsuarioActual, False) End If End If @@ -2785,261 +2786,302 @@ Partial Class Bancos_ProveedoresAbonar #Region " NOTIFICACION PAGO " - Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String) - If Not DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then - 'Dim Param As New List(Of String) - 'Param.Add(CorreoNotificarA) 'Para - 'Param.Add("Notificaciones de pago") 'Asunto - 'Param.Add(GeneraCorreo(CveIE)) 'Body - 'Param.Add(CveIE.ToString) 'CveIE - Dim Body As String = GeneraCorreo(CveIE) - Dim Comprobante = If(ComprobanteIE <> "", String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ComprobanteIE), "") 'Archivo Adjunto + Private Sub EnviarCorreoNotificacion(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario, MostarAlert As Boolean) - Dim File As Byte() = Nothing - If UsuarioActual.Empresa.Funcionalidad(545).ToEntero > 0 Then - File = NewGeneraBytesCxP(CveProveedor, UsuarioActual.Nombre) - End If - - Dim Hilo As New Threading.Thread(Sub() MandaCorreo(CorreoNotificarA, "Notificaciones de pago", Body, CveIE, Comprobante, File)) + Try + Dim Hilo As New Threading.Thread(Sub() EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar)) + 'Dim Hilo As New Threading.Thread( EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar)) Hilo.Start() - End If + + If MostarAlert Then + Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) + End If + + Catch ex As Exception + + If MostarAlert Then + Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError) + End If + + + End Try + End Sub + + Private Sub EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario) + + + Try + Dim ObjBancos As New ClsBancos() + + If ObjBancos.NotificacionPago(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar) Then + Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) + Else + Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError) + End If + + ObjBancos.Dispose() + Catch ex As Exception + GuardaLog("Error al enviar notificación de pago ProveedoresAbonar --> " & ex.StackTrace.ToString) + End Try + + End Sub - Private Sub MandaCorreo(Para As String, Asunto As String, Body As String, CveIE As Integer, Comprobante As String, File As Byte()) - 'Dim Parametros As List(Of String) = DirectCast(Data, List(Of String)) - - Dim Mail As New ClsSisMail() - Para = If(Para IsNot Nothing, Para, "") - Asunto = If(Asunto IsNot Nothing, Asunto, "") - Body = If(Body IsNot Nothing, Body, "") - - Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail) - If Comprobante IsNot Nothing AndAlso Comprobante <> "" Then - ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = Comprobante}) - End If - - If File IsNot Nothing Then - ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoCuentaCxP.pdf"}) - End If - - If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos) Then - Dim objIE As New ClsBancos - objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE) - objIE.Dispose() - End If - End Sub - - Private Function GeneraCorreo(CveIE As Integer) As String - Dim strBody As New StringBuilder - Dim objIE As New ClsBancos - - If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" {0}", UsuarioActual.Empresa.Empresa) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.Direccion) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.Colonia) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", UsuarioActual.Empresa.RFC) - strBody.AppendFormat(" ") - strBody.AppendFormat("
{0}
Col. {0}
{0}, {1}, C.P.{2}
RFC {0}
") - strBody.AppendFormat("
") - strBody.AppendFormat("


") - - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - - If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - End If - - If objIE.CveTipoTransaccion = 2 Then ' cuando es transf - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - End If - - strBody.Append(" ") - strBody.AppendFormat(" ") - strBody.Append(" ") - strBody.Append("
Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.
Notificación de transferencia de pago realizada.
 
") - strBody.AppendFormat("
") - strBody.Append("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" Beneficiario:{0} ", objIE.PagueseA) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.TipoTransaccion) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.Banco) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.NumCuenta) - strBody.AppendFormat(" ") - If objIE.CuentaDepositado.ToString <> "" Then - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.CuentaDepositado) - strBody.AppendFormat(" ") - End If - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.FechaDocumento.ToString("dd/MM/yyyy")) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.Importe.FormatoNumero, objIE.Moneda) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", objIE.Observaciones) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat("
Movimiento:{0}
Banco:{0}
Cuenta:{0}
Cuenta Destino:{0}
Fecha:{0}
Importe:$ {0} {1}
Observaciones:{0}
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") + 'Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String) + + ' If Not DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then + + ' Dim Body As String = GeneraCorreo(CveIE) + ' Dim Comprobante = If(ComprobanteIE <> "", String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ComprobanteIE), "") 'Archivo Adjunto + + ' Dim File As Byte() = Nothing + ' If UsuarioActual.Empresa.Funcionalidad(545).ToEntero > 0 Then + ' File = NewGeneraBytesCxP(CveProveedor, UsuarioActual.Nombre) + ' End If + + ' Dim Hilo As New Threading.Thread(Sub() MandaCorreo(CorreoNotificarA, "Notificaciones de pago", Body, CveIE, Comprobante, File)) + ' Hilo.Start() + ' End If + + 'End Sub + + 'Private Sub MandaCorreo(Para As String, Asunto As String, Body As String, CveIE As Integer, Comprobante As String, File As Byte()) + ' 'Dim Parametros As List(Of String) = DirectCast(Data, List(Of String)) + + ' Dim Mail As New ClsSisMail() + ' Para = If(Para IsNot Nothing, Para, "") + ' Asunto = If(Asunto IsNot Nothing, Asunto, "") + ' Body = If(Body IsNot Nothing, Body, "") + + ' Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail) + ' If Comprobante IsNot Nothing AndAlso Comprobante <> "" Then + ' ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = Comprobante}) + ' End If + + ' If File IsNot Nothing Then + ' ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoCuentaCxP.pdf"}) + ' End If + + ' If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos) Then + ' Dim objIE As New ClsBancos + ' objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE) + ' objIE.Dispose() + ' End If + 'End Sub + + 'Private Function GeneraCorreo(CveIE As Integer) As String + ' Dim strBody As New StringBuilder + ' Dim objIE As New ClsBancos + + ' If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" {0}", UsuarioActual.Empresa.Empresa) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Direccion) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Colonia) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", UsuarioActual.Empresa.RFC) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
{0}
Col. {0}
{0}, {1}, C.P.{2}
RFC {0}
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("


") + + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + + ' If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' End If + + ' If objIE.CveTipoTransaccion = 2 Then ' cuando es transf + ' strBody.Append(" ") + ' strBody.Append(" ") + ' strBody.Append(" ") + ' End If + + ' strBody.Append(" ") + ' strBody.AppendFormat(" ") + ' strBody.Append(" ") + ' strBody.Append("
Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.
Notificación de transferencia de pago realizada.
 
") + ' strBody.AppendFormat("
") + ' strBody.Append("
") - 'MOVIMIENTOS CHEQUE - If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then - Dim Textov33 As String = "" - If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then - Textov33 = "Favor de emitir complemento de pago de los siguientes documentos" - End If - - strBody.AppendFormat("
") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ", dr("Fecha").ToString.ToDate.ToShortDateString()) - strBody.AppendFormat(" ", dr("SerieFolio").ToString) - strBody.AppendFormat(" ", dr("Importe").ToString.FormatoNumero) - strBody.AppendFormat(" ", dr("FolioFiscal")) - strBody.AppendFormat(" ", dr("ImporteNC").ToString.FormatoNumero) - strBody.AppendFormat(" ") - Next + ' 'MOVIMIENTOS CHEQUE + ' If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then + ' Dim Textov33 As String = "" + ' If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then + ' Textov33 = "Favor de emitir complemento de pago de los siguientes documentos" + ' End If + + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat(" Documentos abonados o pagados
{0} ", Textov33) - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
FechaFacturaImporte ($)Folio FiscalNC Aplicadas
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" Beneficiario:{0} ", objIE.PagueseA) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.TipoTransaccion) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.Banco) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.NumCuenta) + ' strBody.AppendFormat(" ") + ' If objIE.CuentaDepositado.ToString <> "" Then + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.CuentaDepositado) + ' strBody.AppendFormat(" ") + ' End If + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.FechaDocumento.ToString("dd/MM/yyyy")) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.Importe.FormatoNumero, objIE.Moneda) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ", objIE.Observaciones) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
Movimiento:{0}
Banco:{0}
Cuenta:{0}
Cuenta Destino:{0}
Fecha:{0}
Importe:$ {0} {1}
Observaciones:{0}
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat("") - For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows - strBody.AppendFormat("
{0}{0}$ {0}{0}{0}
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat("
") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" Documentos abonados o pagados
{0} ", Textov33) + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat(" ") - strBody.AppendFormat("
FechaFacturaImporte ($)Folio FiscalNC Aplicadas
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - strBody.AppendFormat("
") - End If + ' For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" {0}", dr("Fecha").ToString.ToDate.ToShortDateString()) + ' strBody.AppendFormat(" {0}", dr("SerieFolio").ToString) + ' strBody.AppendFormat(" $ {0}", dr("Importe").ToString.FormatoNumero) + ' strBody.AppendFormat(" {0}", dr("FolioFiscal")) + ' strBody.AppendFormat(" {0}", dr("ImporteNC").ToString.FormatoNumero) + ' strBody.AppendFormat(" ") + ' Next - strBody.Append("
Favor de no responder a este correo.
") - strBody.Append("") - End If + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat(" ") + ' strBody.AppendFormat("
") + ' End If - objIE.Dispose() - Return strBody.ToString - End Function + ' strBody.Append("
Favor de no responder a este correo.
") + + ' strBody.Append("") + ' End If + + ' objIE.Dispose() + ' Return strBody.ToString + 'End Function #End Region diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index ecbbb6b28..ded4e0c6f 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -613,9 +613,8 @@ Producto o Servicio Observación -   - - + +   @@ -650,13 +649,21 @@ - - - -
- - - +
+
+ + + +
+ <%----%> +
+
+
+ + + +
+
@@ -4424,7 +4431,7 @@
- + <%----%> <%-- --%> diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 9092932ce..03865ea0d 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1534,95 +1534,17 @@ Partial Class Compras_Compras liServicios.Visible = False DivConsignaciones.Visible = False End If - - If UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then - LitHProyecto.Text = "Proyecto" - LthProyectoP.Text = "Proyecto" - - LblSubProyectoHeader.Text = "" - LblSubProyectoPHeader.Text = "" - - LblSubProyecto.InnerText = "Proyecto" - 'LblSubProyectoDivAplica.InnerText = "Proyecto" - - DdlSubProyecto.Items.Clear() - 'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) - DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) - DdlSubProyecto.DataBind() - DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - - 'DdlAsignaSubProyecto.Items.Clear() - 'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) - 'DdlAsignaSubProyecto.DataBind() - 'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - - divproyecto.Visible = False - 'divasignaproyecto.Visible = False - DdlProyecto.Visible = False - DdlProyecto.Items(0).Text = "" - - ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then - LitHProyecto.Text = "Sucursal" - LthProyectoP.Text = "Sucursal" - - LblSubProyectoHeader.Text = "" - LblSubProyectoPHeader.Text = "" - - LblSubProyecto.InnerText = "Sucursal" - 'LblSubProyectoDivAplica.InnerText = "Sucursal" - - DdlSubProyecto.Items.Clear() - 'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) - DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) - DdlSubProyecto.DataBind() - DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - - 'DdlAsignaSubProyecto.Items.Clear() - 'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) - 'DdlAsignaSubProyecto.DataBind() - 'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - - divproyecto.Visible = False - 'divasignaproyecto.Visible = False - DdlProyecto.Visible = False - DdlProyecto.Items(0).Text = "" - - ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then - LitHProyecto.Text = "Sucursal" - LthProyectoP.Text = "Sucursal" - - LblSubProyectoHeader.Text = "Proyecto" - LblSubProyectoPHeader.Text = "Proyecto" - - 'LblSubProyectoDivAplica.InnerText = "Sucursal" - 'LblProyectoDivAplica.InnerText = "Proyecto" - LblSubProyecto.InnerText = "Sucursal" - LblProyecto.InnerText = "Proyecto" - - ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then - LitHProyecto.Text = "Proyecto" - LthProyectoP.Text = "Proyecto" - - LblSubProyectoHeader.Text = "Sucursal" - LblSubProyectoPHeader.Text = "Sucursal" - - 'LblSubProyectoDivAplica.InnerText = "Proyecto" - 'LblProyectoDivAplica.InnerText = "Sucursal" - LblSubProyecto.InnerText = "Proyecto" - LblProyecto.InnerText = "Sucursal" - End If + CargarCentrosDeCosto(DdlAsignarProyecto, DdlAsignaSubProyecto, LitHProyecto, LblSubProyectoHeader) + CargarCentrosDeCosto(DdlProyecto, Nothing, Nothing, Nothing) + divproyecto.Visible = DdlProyecto.Visible CargaGvPersonal() CargaDdlPersonal() - InicializaDevolucionAlmacen() HabilitaEdicionManualAgregar() InicializaActualizarTC() - - - LtlTareaNueva.Text = String.Format(" Tarea", CveCompra) End If @@ -11299,7 +11221,6 @@ Partial Class Compras_Compras CargaClasificacionesComprobaciones() CargaClasificaciones() CargaPS(-1) - CargaProyecto() CreaDTCompras() CargaMonedas() CargarAlmacen() @@ -17429,12 +17350,7 @@ Partial Class Compras_Compras Alert("Es necesario seleccionar el Proveedor al cual se le va a capturar.", TipoMensaje.MsgAdvertencia, "AbrirVentana(""/Compras/PopUpBuscarProveedor.aspx?Opt=Fact"", 800, 547, ""N"", ""PopUpBuscar"")") End If End Sub - Private Sub CargaProyecto() - DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})) - 'DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1) - DdlProyecto.DataBind() - End Sub Protected Sub DdlProyectoAsignado_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged CargaSubProyecto() End Sub diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index fcaacad9a..768a1edda 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -71,8 +71,8 @@
- - + +
@@ -112,6 +112,7 @@
+
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb index e2c98ae18..6470747bb 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb @@ -32,10 +32,6 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Private Sub CargaDatosModal() Dim ObjConta As New ClsContabilidad - Dim ObjProveedores As New ClsCompProveedores - Dim ObjRH As New ClsRH - Dim ObjClasificaciones As New ClsClasificaciones - Dim ObjInv As New ClsInventarios If ObjConta.GetConta_ConceptosContables() Then DdlCconceptosContables.DataSource = ObjConta.DtResultados @@ -45,31 +41,17 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlCuenta.DataSource = ObjConta.DtResultados End If - If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then - DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - End If + DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) DdlClientes.setEsWebService(True) DdlPersonal.setEsWebService(True) - 'If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then - ' DdlPersonal.DataSource = ObjRH.DtResultados - 'End If - If ObjClasificaciones.GetClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa) Then - DdlClasificacion.DataSource = ObjClasificaciones.DtResultados - End If + DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) - If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then - DdlAlmacen.DataSource = ObjInv.DtResultados - End If + DdlAlmacen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa) ObjConta.Dispose() - ObjProveedores.Dispose() - ObjRH.Dispose() - ObjClasificaciones.Dispose() - ObjInv.Dispose() - DdlCconceptosContables.DataBind() DdlCuenta.DataBind() @@ -171,7 +153,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones End If End If ObjConta.Dispose() - RegistraScript("$('#ModalCat').modal('hide');") + If Not ChkSeguirRegistrando.Checked Then RegistraScript("$('#ModalCat').modal('hide');") + If ErrorString.Length > 0 Then Alert(ErrorString) Else diff --git a/CxC/RepCxC.aspx b/CxC/RepCxC.aspx index 5f9970007..82e7afba0 100644 --- a/CxC/RepCxC.aspx +++ b/CxC/RepCxC.aspx @@ -141,6 +141,7 @@ +
@@ -322,6 +323,19 @@
+ +
+ Tipo Cliente: +
+ +
+ + + + + +
+ diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb index 7c3b73753..f049dfde1 100644 --- a/CxC/RepCxC.aspx.vb +++ b/CxC/RepCxC.aspx.vb @@ -199,7 +199,8 @@ Partial Class RepCxC If ObjMovtos.GetCxC(FechaI, FechaF, CveCliente, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, -1, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM), FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, - CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero) Then + CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, + TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjMovtos.DtResultados DtDatos = ObjMovtos.DtResultados @@ -378,53 +379,53 @@ Partial Class RepCxC End If End If - Dim Liga1 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C1&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}", + Dim Liga1 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C1&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero) - Dim Liga2 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C2&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}", + Dim Liga2 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C2&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero) - Dim Liga3 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C3&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}", + Dim Liga3 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C3&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero) - Dim Liga4 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C4&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}", + Dim Liga4 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C4&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero) - Dim Liga5 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C5&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}", + Dim Liga5 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C5&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente{26}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero) - Dim Liga6 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C6&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}", + Dim Liga6 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C6&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero) - Dim Liga7 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C7&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}", + Dim Liga7 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C7&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero) - Dim Liga8 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C8&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}", + Dim Liga8 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C8&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero) - Dim Liga9 As String = String.Format("/CxC/RepCxCDetalle.aspx.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}", + Dim Liga9 As String = String.Format("/CxC/RepCxCDetalle.aspx.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero) - Dim Liga10 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}", + Dim Liga10 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero) - Dim Liga11 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}", + Dim Liga11 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero) - Dim LigaTot As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}", + Dim LigaTot As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}", DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito")) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero) e.Row.FCHyperLink("HplSaldo").NavigateUrl = LigaTot diff --git a/CxC/RepCxCDetalle.aspx b/CxC/RepCxCDetalle.aspx index f362fc720..d20c79363 100644 --- a/CxC/RepCxCDetalle.aspx +++ b/CxC/RepCxCDetalle.aspx @@ -118,6 +118,7 @@ + @@ -215,6 +216,8 @@ + + @@ -273,13 +276,45 @@ -
+ +
+ Estatus Cliente: +
+
+ + + + + +
+ + +
+ +
+
Clasificación Cliente:
+
+ + +
+ Tipo Cliente:
-
+ +
+ + + + + +
+ + + + diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index 8b2f794e6..1ebca9cb7 100644 --- a/CxC/RepCxCDetalle.aspx.vb +++ b/CxC/RepCxCDetalle.aspx.vb @@ -178,9 +178,50 @@ Partial Class RepCxCDetalle Set(value As Decimal) ViewState("LimiteCredito") = value End Set - End Property + End Property + + Private Property TipoCliente As Integer + Get + If ViewState("TipoCliente") Is Nothing Then + Return -1 + Else + Return DirectCast(ViewState("TipoCliente"), Integer) + End If + End Get + Set(value As Integer) + ViewState("TipoCliente") = value + End Set + End Property + + + Private Property CveMoneda As Integer + Get + If ViewState("CveMoneda") Is Nothing Then + Return -1 + Else + Return DirectCast(ViewState("CveMoneda"), Integer) + End If + End Get + Set(value As Integer) + ViewState("CveMoneda") = value + End Set + End Property + + Private Property EstatusCliente As Integer + Get + If ViewState("EstatusCliente") Is Nothing Then + Return -1 + Else + Return DirectCast(ViewState("EstatusCliente"), Integer) + End If + End Get + Set(value As Integer) + ViewState("EstatusCliente") = 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 ViewState("Opcion") = IfNull(Request("Op"), "-1") @@ -252,7 +293,12 @@ Partial Class RepCxCDetalle CveCobranzaEstatus = If(Request("CveCobranzaEstatus") IsNot Nothing, Request("CveCobranzaEstatus").ToString, "-1").ToString.ToEntero CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing, Request("CveClienteClasificacion").ToString, "-1").ToString.ToEntero LimiteCredito = If(Request("LimiteCredito") IsNot Nothing, Request("LimiteCredito").ToString, "-1").ToString.ToDecimal - + TipoCliente = If(Request("TipoCliente") IsNot Nothing, Request("TipoCliente").ToString, "-1").ToString.ToEntero + CveMoneda = If(Request("CveMoneda") IsNot Nothing, Request("CveMoneda").ToString, "-1").ToString.ToEntero + EstatusCliente = If(Request("EstatusCliente") IsNot Nothing, Request("EstatusCliente").ToString, "-1").ToString.ToEntero + + DdlTipoCliente.SelectedValueExist(TipoCliente) + DdlEstatusCliente.SelectedValueExist(EstatusCliente) If FechaF <> "-1" Then txtFechaF.Text = FechaF @@ -387,7 +433,8 @@ Partial Class RepCxCDetalle Iva.ToString, DdlGrupo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlResponsable.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM), FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=DdlCobranzaEstatusFiltro.SelectedValue.ToEntero, - CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, LimiteCredito:=LimiteCredito) Then + CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, LimiteCredito:=LimiteCredito, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, + CveMoneda:=CveMoneda, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjMovtos.DtResultados dt = ObjMovtos.DtResultados diff --git a/Empresas/7/Formatos/OC.rdlc b/Empresas/7/Formatos/OC.rdlc index 405871d1b..db2910868 100644 --- a/Empresas/7/Formatos/OC.rdlc +++ b/Empresas/7/Formatos/OC.rdlc @@ -1,2244 +1,5 @@ - - - - - true - true - - - - - =Parameters!TipoOC.Value - - - - - - - Textbox3 - 2.44856cm - 0.2667cm - 0.6cm - 18.82013cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - VSH VIGILANCIA Y PROTECCION SA DE CV - - - - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - VSH - FitProportional - 0.35576cm - 0.2667cm - 2.02224cm - 3.36239cm - 2 - - - - - - true - true - - - - - PROVEEDOR: - - - - =Parameters!ProveedorNombre.Value - - - - - - - =Parameters!ProveedorDireccion.Value - - - - - - - =Parameters!ProveedorTel.Value - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - FECHA DE REGISTRO: - - - - =Parameters!FechaSolicitud.Value - - - - - - - =Parameters!FechaEntrega.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - - - - true - true - - - - - DESCRIPCION: - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Justificacion.Value - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - - =Parameters!Folio.Value - - - - - - - Textbox2 - 0.35576cm - 17.81988cm - 0.6cm - 1.75917cm - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - No. - - - - - - - Textbox19 - 0.35576cm - 16.43113cm - 0.6cm - 1.38875cm - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 1.97712cm - - - 1.53649cm - - - 4.25385cm - - - 4.73296cm - - - 2.24377cm - - - 1.01139cm - - - 2.00619cm - - - 1.75917cm - - - - - 0.473cm - - - - - true - true - - - - - CANTIDAD - - - - - - - Textbox1 - - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - CODIGO - - - - - - - Textbox7 - - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - PRODUCTO - - - - - - - Textbox9 - - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - D E S C R I P C I O N - - - - - - - Textbox9 - - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Sub Proyecto - - - - - - - Textbox4 - - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - A.F. - - - - - - - Textbox21 - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - P. UNITARIO - - - - - - - Textbox13 - - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - IMPORTE - - - - - - - Textbox5 - - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.38833cm - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad1 - - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!CodPS.Value - - - - - - - CodPS - - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!Producto.Value - - - - - - - Producto - - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!Obs.Value - - - - - - - Obs - - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!SubProyecto.Value - - - - - - - SubProyecto - - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!CodigoAF.Value - - - - - - - CodigoAF - - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Importe - - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!Total.Value - - - - - - - Total - - - 2pt - 2pt - 1pt - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsOC - 7.26722cm - 0.02288in - 0.86133cm - 19.52094cm - 9 - - - - - - true - true - - - - - =IIF(CInt(Parameters!TipoTermino.Value)=2, "C A N C E L A D O", "") - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Uso CFDI 3.3: - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsoCFDI.Value - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 3.23147in - - - - - - true - true - - - - - NOTAS: RECEPCION DE FACTURAS VIERNES UNICAMENTE NO SE RECIBIRA SU FACTURA SIN ESTA ORDEN DE COMPRA - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =UCase(Parameters!ImporteLetra.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - _______________ - - - - - - - Textbox17 - 2.70608cm - 0.48139cm - 1.30584cm - 3.1477cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - = "__________________________________" & Chr(10) - & Parameters!NombreAutorizo.Value & Chr(10) - & "FIRMA AUTORIZADA" - - - - - Textbox17 - 2.70608cm - 5.12961cm - 1.30584cm - 6.9577cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Banco - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Cuenta/Clabe bancaria/Referencia - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - I.V.A. - - - - - - - Textbox20 - 1.62008cm - 14.6301cm - 0.45183cm - 2.5cm - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - DESCUENTO: - - - - - - - Textbox20 - 0.71938cm - 14.63363cm - 0.45183cm - 2.5cm - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!IVA.Value - - - - - - - Textbox20 - 1.62008cm - 17.1301cm - 0.45183cm - 2.5cm - 9 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Descuento.Value - - - - - - - Textbox20 - 0.71938cm - 17.13363cm - 0.45183cm - 2.5cm - 10 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - SUB-TOTAL - - - - - - - Textbox20 - 0.26755cm - 14.63363cm - 0.45183cm - 2.5cm - 11 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SubTotal.Value - - - - - - - Textbox20 - 0.26755cm - 17.13363cm - 0.45183cm - 2.5cm - 12 - - - 2pt - 2pt - 2pt - 2pt - - - - - - true - true - - - - - TOTAL - - - - - - - Textbox20 - 0.02173cm - 0.45183cm - 2.5cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Total.Value - - - - - - - Textbox20 - 0.05181cm - 2.5cm - 0.45183cm - 2.5cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - 2.07191cm - 14.63363cm - 0.50364cm - 5cm - 13 - - =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value <= 0 And Parameters!RetISR.Value <= 0, False, True) - - - - - - - - - true - true - - - - - Ret IVA - - - - - - - Textbox20 - 0.0247cm - 0.45183cm - 2.5cm - - =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value > 0, False, True) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!RetIVA.Value - - - - - - - Textbox20 - 2.5cm - 0.45183cm - 2.5cm - 1 - - =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value > 0, False, True) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!RetISR.Value - - - - - - - Textbox20 - 0.48711cm - 2.50353cm - 0.45183cm - 2.5cm - 2 - - =Microsoft.VisualBasic.Interaction.iif(Parameters!RetISR.Value > 0, False, True) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Ret ISR - - - - - - - Textbox20 - 0.51181cm - 0.01059cm - 0.45183cm - 2.5cm - 3 - - =Microsoft.VisualBasic.Interaction.iif(Parameters!RetISR.Value > 0, False, True) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - TOTAL - - - - - - - Textbox20 - 0.94193cm - 0.00353cm - 0.45183cm - 2.5cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Total.Value - - - - - - - Textbox20 - 0.94193cm - 2.50353cm - 0.45183cm - 2.5cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - true - 2.61082cm - 14.62657cm - 1.39376cm - 5.00353cm - 14 - - =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value > 0 Or Parameters!RetISR.Value > 0, False, True) - - - - - - - External - =Parameters!FirmaAutorizo.Value - Fit - 0.82196cm - 6.69573cm - 3.09107cm - 3.55292cm - 15 - - =iif(Parameters!FirmaAutorizo.Value <> "",False,True) - - - - - - - true - true - - - - - SUB-TOTAL 2 - - - - - - - Textbox20 - 1.13297cm - 14.63716cm - 0.45183cm - 2.5cm - 16 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SubTotal2.Value - - - - - - - Textbox20 - 1.13297cm - 17.13716cm - 0.45183cm - 2.5cm - 17 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - - - =Today - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 1cm - 0cm - 1cm - 1cm - 0.13cm - + + + + + + Textbox3 + 2.44856cm + 0.2667cm + 0.6cm + 18.82013cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + VSH VIGILANCIA Y PROTECCION SA DE CV + + + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + VSH + FitProportional + 0.35576cm + 0.2667cm + 2.02224cm + 3.36239cm + 2 + + + + + + true + true + + + + + PROVEEDOR: + + + + =Parameters!ProveedorNombre.Value + + + + + + + =Parameters!ProveedorDireccion.Value + + + + + + + =Parameters!ProveedorTel.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + FECHA DE REGISTRO: + + + + =Parameters!FechaSolicitud.Value + + + + + + + =Parameters!FechaEntrega.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + + + + true + true + + + + + DESCRIPCION: + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Justificacion.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + =Parameters!Folio.Value + + + + + + + Textbox2 + 0.35576cm + 17.81988cm + 0.6cm + 1.75917cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + No. + + + + + + + Textbox19 + 0.35576cm + 16.43113cm + 0.6cm + 1.38875cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 1.97712cm + + + 1.53649cm + + + 4.25385cm + + + 4.73296cm + + + 2.24377cm + + + 1.01139cm + + + 2.00619cm + + + 1.75917cm + + + + + 0.473cm + + + + + true + true + + + + + CANTIDAD + + + + + + + Textbox1 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CODIGO + + + + + + + Textbox7 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + PRODUCTO + + + + + + + Textbox9 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + D E S C R I P C I O N + + + + + + + Textbox9 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sub Proyecto + + + + + + + Textbox4 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + A.F. + + + + + + + Textbox21 + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + P. UNITARIO + + + + + + + Textbox13 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + IMPORTE + + + + + + + Textbox5 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.38833cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!CodPS.Value + + + + + + + CodPS + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!Producto.Value + + + + + + + Producto + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!Obs.Value + + + + + + + Obs + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!SubProyecto.Value + + + + + + + SubProyecto + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!CodigoAF.Value + + + + + + + CodigoAF + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total + + + 2pt + 2pt + 1pt + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 7.26722cm + 0.02288in + 0.86133cm + 19.52094cm + 9 + + + + + + true + true + + + + + =IIF(CInt(Parameters!TipoTermino.Value)=2, "C A N C E L A D O", "") + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Uso CFDI 3.3: + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsoCFDI.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 3.23147in + + + + + + true + true + + + + + NOTAS: RECEPCION DE FACTURAS VIERNES UNICAMENTE NO SE RECIBIRA SU FACTURA SIN ESTA ORDEN DE COMPRA + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =UCase(Parameters!ImporteLetra.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + _______________ + + + + + + + Textbox17 + 2.70608cm + 0.48139cm + 1.30584cm + 3.1477cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + = "__________________________________" & Chr(10) + & Parameters!NombreAutorizo.Value & Chr(10) + & "FIRMA AUTORIZADA" + + + + + Textbox17 + 2.70608cm + 5.12961cm + 1.30584cm + 6.9577cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Banco + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Cuenta/Clabe bancaria/Referencia + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + I.V.A. + + + + + + + Textbox20 + 1.62008cm + 14.6301cm + 0.45183cm + 2.5cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DESCUENTO: + + + + + + + Textbox20 + 0.71938cm + 14.63363cm + 0.45183cm + 2.5cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!IVA.Value + + + + + + + Textbox20 + 1.62008cm + 17.1301cm + 0.45183cm + 2.5cm + 9 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Descuento.Value + + + + + + + Textbox20 + 0.71938cm + 17.13363cm + 0.45183cm + 2.5cm + 10 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SUB-TOTAL + + + + + + + Textbox20 + 0.26755cm + 14.63363cm + 0.45183cm + 2.5cm + 11 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SubTotal.Value + + + + + + + Textbox20 + 0.26755cm + 17.13363cm + 0.45183cm + 2.5cm + 12 + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + TOTAL + + + + + + + Textbox20 + 0.02173cm + 0.45183cm + 2.5cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Total.Value + + + + + + + Textbox20 + 0.05181cm + 2.5cm + 0.45183cm + 2.5cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 2.07191cm + 14.63363cm + 0.50364cm + 5cm + 13 + + =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value <= 0 And Parameters!RetISR.Value <= 0, False, True) + + + + + + + + + true + true + + + + + Ret IVA + + + + + + + Textbox20 + 0.0247cm + 0.45183cm + 2.5cm + + =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value > 0, False, True) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!RetIVA.Value + + + + + + + Textbox20 + 2.5cm + 0.45183cm + 2.5cm + 1 + + =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value > 0, False, True) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!RetISR.Value + + + + + + + Textbox20 + 0.48711cm + 2.50353cm + 0.45183cm + 2.5cm + 2 + + =Microsoft.VisualBasic.Interaction.iif(Parameters!RetISR.Value > 0, False, True) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Ret ISR + + + + + + + Textbox20 + 0.51181cm + 0.01059cm + 0.45183cm + 2.5cm + 3 + + =Microsoft.VisualBasic.Interaction.iif(Parameters!RetISR.Value > 0, False, True) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + TOTAL + + + + + + + Textbox20 + 0.94193cm + 0.00353cm + 0.45183cm + 2.5cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Total.Value + + + + + + + Textbox20 + 0.94193cm + 2.50353cm + 0.45183cm + 2.5cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 2.61082cm + 14.62657cm + 1.39376cm + 5.00353cm + 14 + + =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value > 0 Or Parameters!RetISR.Value > 0, False, True) + + + + + + + External + =Parameters!FirmaAutorizo.Value + Fit + 0.82196cm + 6.69573cm + 3.09107cm + 3.55292cm + 15 + + =iif(Parameters!FirmaAutorizo.Value <> "",False,True) + + + + + + + true + true + + + + + SUB-TOTAL 2 + + + + + + + Textbox20 + 1.13297cm + 14.63716cm + 0.45183cm + 2.5cm + 16 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SubTotal2.Value + + + + + + + Textbox20 + 1.13297cm + 17.13716cm + 0.45183cm + 2.5cm + 17 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + + =Today + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 1cm + 0cm + 1cm + 1cm + 0.13cm +