 Cómo
crear un Documento de envío? |
Que
es un documento de envío?
Un
Documento de envío es un informe o reporte que se utilizará como
base para introducir la información e imágenes que se desean agregar
a un mensaje y que se convertirán en documentos con formato de tipo Doc
y RTF de Word, Snap Viewer y HTML.
Requerimientos
para crear un documento
Para
poder crear un documento de envío requerirá:
- Microsoft
Access 97
- Windows 98 o superior
- Conocimientos básicos
para la operación de Microsoft Access
Crear
un documento de envío
Los
documento de envío se deben de crear utilizando Microsoft Access 97, creando
una base de datos en blanco y dentro de ella creando un documento, una vez creado
se debe exportar al archivo del SPMD. Para crear un documento sigua las siguientes
instrucciones:
1. Abra
Microsoft Access 97 en el idioma que lo tenga.
Nota:
por ningún motivo utilice otra versión que no sea la 97, si desea
que Rasgocorp le diseñe el documento, entonces contacte a Soporte
Técnico de Rasgocorp y solicite la creación de un documento
de envío con las características que desea
2.
Seleccione Base de datos en blanco, Access le preguntará el nombre de su
base de datos y el directorio donde la guardará
3.
Dentro de la base de datos, seleccione la pestaña "Informes"
o "Reportes", presione el botón "Nuevo", seleccione
la opción "Vista Diseño" y presione "Aceptar".
4.
Al abrirse el nuevo reporte, elimine las secciones "Encabezado de página"
y "Pie de página".
5.
En la sección "Detalle" cree los campos que se requieren,
tal y como se describe mas abajo, ordene los campos como lo desee.
6.
Presione el botón "Código", se abre el módulo de
clase del informe, copie el código que se proporciona más
adelante y péguelo en el módulo de clase.
7.
Agregue la demás información que desee, textos e imágenes
que requiera.
8. Guarde
el informe con el nombre que desee.
9.
Configuración de página:
-
Si utilizará el informe para envío de Email o creación de
Documentos entonces en la configuración de página, seleccione como
impresora a la impresora predeterminada de Windows.
- Si
utilizará el informe para Impresión Directa, entonces seleccione
la impresora predeterminada de Windows o una específica.
- Si
utilizará el informe para envío
de Fax, entonces seleccione el controlador de WinFax como impresora específica.
- Si utilizará el informe
para creación de Documentos, entonces utilice el criterio de impresión
que desee, puesto que el sistema ignorará estas opciones.
Campos
que debe puede un documento de envío
Nombre
de
los Campos | Valor
del Campo | Observaciones |
| TituloNombre |
Título y Nombre del
Contacto.
Ej.: "Ing. Jesús Alfonso
Loya" | El
Nombre está Disponible para Todos los módulos de envío, creación
e impresión, el Título excepto para Correos Genéricos y Aleatorios |
| Puesto |
Puesto
del Contacto.
Ej.: "Gerente de Compras" | Disponible
para Todos los módulos de envío, creación e impresión,
excepto Correos Genéricos y Aleatorios |
| Departamento | Departamento
del Contacto.
Ej.: "Compras" | Disponible
para Todos los módulos de envío, creación e impresión,
excepto Correos Genéricos y Aleatorios |
| RazonSocial |
Razón
Social
Ej.: "Rasgocorp SA de CV" | Disponible
para Todos los módulos de envío excepto Correos Aleatorios |
| Email | Email
del Contacto.
Ej.: "soportetecnico@rasgocorp.com" | Disponible
para Todos los módulos de envío, creación e impresión |
| Telefono | Teléfono
del Contacto.
Ej.: "55555555" | Disponible
para Todos los módulos de envío, creación e impresión,
excepto Correos Genéricos y Aleatorios |
| Direccion | Dirección
del Contacto.
Ej.: "Villas de la Hacienda # 33, Colonia Villas,
México, CP 54454" | Disponible
para Todos los módulos de envío, creación e impresión,
excepto Correos Genéricos y Aleatorios |
| Campo1 | Campo
Personalizado 1.
| Disponible
para Todos los módulos de envío, creación e impresión,
excepto Aleatorios | |
Campo2 | Campo
Personalizado 2.
| Disponible
para Todos los módulos de envío, creación e impresión,
excepto Aleatorios | |
Campo3 | Campo
Personalizado 3.
| Disponible
para Todos los módulos de envío, creación e impresión,
excepto Aleatorios | |
TextoMensaje |
Texto
del Mensaje.
Ej.: "Descargue completamente
gratis el sistema SPA, y si eres Distribuidor de Cómputo inclúyelo
en tus promociones y ofertas." | Disponible
para Todos los módulos de envío | |
|
Propiedades
de los campos | |
Propiedade |
Valor |
| Origen
del Control | -
Vacío - | |
Formato |
- Vacío - |
| Lugares
de decimales | Automático |
| Mascara
de entrada | -
Vacío - | |
Visible |
Sí |
| Ocultar
duplicados | No |
| Autoextensible |
Sí |
| Autocomprimible |
Sí |
| Suma
Continua | No |
| Izq,
Sup, Ancho, Alto | -Personalizable- |
| Estilo
y Color del Fondo | -Personalizable- |
| Efecto
especial, Estilo, Color y Ancho de los Bordes |
-Personalizable- |
| Color,
Nombre, Tamaño, Espesor, Cursiva, Subrayada y Alineación de la Fuente
(Texto) | -Personalizable- |
|
Ejemplo
del informe "DocGenéricoHTM"
Si
sus envíos los va a realizar con formato
HTM, le recomendamos que no utilice ni imágenes ni líneas, si
desea incluir imágenes, formatos de captura, y links a Internet o correo
electrónico, entonces utilice una plantilla
HTM.
Ejemplo
del informe "DocGenérico"
Si
sus envíos los va a realizar con formato
DOC o RTF, le recomendamos que no utilice ni imágenes, ni líneas.
Si utiliza el formato SNP,
entonces podrá utilizar imágenes.
Código
que debe contener un documento de envío
(General)
> (Declaraciones)
Seleccione
el código ubicado en esta ventana, Cópielo y Péguelo dentro
del módulo de clase del reporte o informe que va a crear
| Option
Compare Database
Option Explicit Dim
IniciarEn As String
Dim vTitulo As String
Dim vNombre As String
Dim
vPuesto As String
Dim vDepartamento As String
Dim vEmail As String
Dim vTelefono As String
Dim vDireccion As String
Dim vCampo1 As String
Dim vCampo2 As String
Dim vCampo3 As String
Dim vRazonSocial As String
Dim IniciarEn2 As String
Dim db As Database
Dim reg As Recordset |
(Report) > (Open)
Copie
este código y péguelo dentro del módulo de clase del reporte
o informe
|
Private Sub Report_Open(Cancel
As Integer)
On Error Resume Next
Set db = DBEngine.Workspaces(0).Databases(0)
Set reg = db.OpenRecordset("Select PerzonalizaFax.* from PerzonalizaFax") Select
Case Forms!ContactManagerReportesImpresion.Tag
Case "ReportesDirectorioContactManager"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Not IsNull(reg!IniciarDiciendo) Then
Select Case Right(reg!IniciarDiciendo,
3)
Case "(a)": If Forms!ContactManagerReportesImpresion!Sexo = "Masculino"
Then IniciarEn = Mid(reg!IniciarDiciendo, 1, (Len(reg!IniciarDiciendo) - 3)) &
" " Else IniciarEn = Mid(reg!IniciarDiciendo, 1, (Len(reg!IniciarDiciendo)
- 4)) & "a "
Case Else: IniciarEn = reg!IniciarDiciendo &
" "
End Select
Else
IniciarEn = ""
End If
If Not IsNull(reg!IniciarDiciendo2) Then
Select Case Right(reg!IniciarDiciendo2,
3)
Case "(a)"
Select Case Right(reg!IniciarDiciendo2, 4)
Case "r(a)":
IniciarEn2 = Mid(reg!IniciarDiciendo2, 1, (Len(reg!IniciarDiciendo2)
- 3)) & " "
Case Else
IniciarEn2 = Mid(reg!IniciarDiciendo2,
1, (Len(reg!IniciarDiciendo2) - 3)) & " "
End Select
Case
Else: IniciarEn2 = reg!IniciarDiciendo2 & " "
End Select
Else
IniciarEn2 = ""
End If
If reg!UtilizarTitulo = -1 Then
vTitulo = Forms!ContactManagerReportesImpresion!Titulo & " " Else
vTitulo = ""
If reg!UtilizarNombre = -1 Then vNombre = Forms!ContactManagerReportesImpresion!Nombre
& " " Else vNombre = ""
If reg!UtilizarPuesto = -1
Then vPuesto = Forms!ContactManagerReportesImpresion!Puesto Else vPuesto = ""
If reg!UtilizarDepartamento = -1 Then vDepartamento = Forms!ContactManagerReportesImpresion!Departamento
& " " Else vDepartamento = ""
If reg!UtilizarRazonSocial
= -1 Then vRazonSocial = Forms!ContactManagerReportesImpresion!RazonSocial Else
vRazonSocial = ""
If reg!UtilizarEmail = -1 Then vEmail = Forms!ContactManagerReportesImpresion!Email
& " " Else vEmail = ""
If reg!UtilizarTelefono = -1
Then vTelefono = Forms!ContactManagerReportesImpresion!Telefono & " "
Else vTelefono = ""
If reg!UtilizarDireccion = -1 Then vDireccion
= Forms!ContactManagerReportesImpresion!Direccion & " " Else vDireccion
= ""
If reg!UtilizarCampo1 = -1 Then vCampo1 = Forms!ContactManagerReportesImpresion!Campo1
& " " Else vCampo1 = ""
If reg!UtilizarCampo2 = -1
Then vCampo2 = Forms!ContactManagerReportesImpresion!Campo2 & " "
Else vCampo2 = ""
If reg!UtilizarCampo3 = -1 Then vCampo3 = Forms!ContactManagerReportesImpresion!Campo3
& " " Else vCampo3 = ""
Me!TituloNombre.ControlSource
= "='" & vTitulo & vNombre & "'"
Me!Puesto.ControlSource
= "='" & vPuesto & "'"
Me!Departamento.ControlSource
= "='" & vDepartamento & "'"
Me!RazonSocial.ControlSource
= "='" & vRazonSocial & "'"
Me!Email.ControlSource
= "='" & vEmail & "'"
Me!Telefono.ControlSource
= "='" & vTelefono & "'"
Me!Direccion.ControlSource
= "='" & vDireccion & "'"
Me!Campo1.ControlSource
= "='" & vCampo1 & "'"
Me!Campo2.ControlSource
= "='" & vCampo2 & "'"
Me!Campo3.ControlSource
= "='" & vCampo3 & "'"
If reg!UtilizarTextoMensaje
= -1 Then Me!TextoMensaje.ControlSource = "='" & reg!EspacioBlanco
& IniciarEn & IniciarEn2 & vTitulo & vNombre & reg!TextoMensaje
& "'"
Exit Sub
End Select
Select Case Forms!ListaEmailGenericoReportesModuloEnvio.Tag
Case "EmailGenerico" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Not IsNull(reg!IniciarDiciendo) Then
Select Case Right(reg!IniciarDiciendo,
3)
Case "(a)": IniciarEn = Mid(reg!IniciarDiciendo, 1, (Len(reg!IniciarDiciendo)
- 3)) & " "
Case Else: IniciarEn = reg!IniciarDiciendo &
" "
End Select
Else
IniciarEn = ""
End If
If Not IsNull(reg!IniciarDiciendo2) Then
Select Case Right(reg!IniciarDiciendo2,
3)
Case "(a)"
Select Case Right(reg!IniciarDiciendo2, 4)
Case "r(a)":
IniciarEn2 = Mid(reg!IniciarDiciendo2, 1, (Len(reg!IniciarDiciendo2)
- 3)) & " "
Case Else
IniciarEn2 = Mid(reg!IniciarDiciendo2,
1, (Len(reg!IniciarDiciendo2) - 3)) & " "
End Select
Case
Else: IniciarEn2 = reg!IniciarDiciendo2 & " "
End Select
Else
IniciarEn2 = ""
End If
If reg!UtilizarNombre = -1 Then
If Not IsNull(Forms!ListaEmailGenericoReportesModuloEnvio!Nombre) Then vNombre
= Forms!ListaEmailGenericoReportesModuloEnvio!Nombre & " " Else
vNombre = "" Else vNombre = ""
If reg!UtilizarRazonSocial
= -1 Then If Not IsNull(Forms!ListaEmailGenericoReportesModuloEnvio!RazonSocial)
Then vRazonSocial = Forms!ListaEmailGenericoReportesModuloEnvio!RazonSocial Else
vRazonSocial = "" Else vRazonSocial = ""
If reg!UtilizarEmail
= -1 Then vEmail = Forms!ListaEmailGenericoReportesModuloEnvio!Email & "
" Else vEmail = ""
If reg!UtilizarCampo1 = -1 Then vCampo1
= Forms!ListaEmailGenericoReportesModuloEnvio!Campo1 & " " Else
vCampo1 = ""
If reg!UtilizarCampo2 = -1 Then vCampo2 = Forms!ListaEmailGenericoReportesModuloEnvio!Campo2
& " " Else vCampo2 = ""
If reg!UtilizarCampo3 = -1
Then vCampo3 = Forms!ListaEmailGenericoReportesModuloEnvio!Campo3 & "
" Else vCampo3 = ""
Me!TituloNombre.ControlSource = "='"
& vNombre & "'"
Me!RazonSocial.ControlSource = "='"
& vRazonSocial & "'"
Me!Email.ControlSource = "='"
& vEmail & "'"
Me!Campo1.ControlSource = "='"
& vCampo1 & "'"
Me!Campo2.ControlSource = "='"
& vCampo2 & "'"
Me!Campo3.ControlSource = "='"
& vCampo3 & "'"
If reg!UtilizarTextoMensaje = -1 Then Me!TextoMensaje.ControlSource
= "='" & reg!EspacioBlanco & IniciarEn & IniciarEn2 &
vNombre & reg!TextoMensaje & "'"
Exit Sub
End Select
Select Case Forms!ListaEmailGenericoEnvioICQ.Tag
Case "EmailGenericoICQ"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Not IsNull(reg!IniciarDiciendo) Then
Select Case Right(reg!IniciarDiciendo,
3)
Case "(a)": IniciarEn = Mid(reg!IniciarDiciendo, 1, (Len(reg!IniciarDiciendo)
- 3)) & " "
Case Else: IniciarEn = reg!IniciarDiciendo &
" "
End Select
Else
IniciarEn = ""
End If
If Not IsNull(reg!IniciarDiciendo2) Then
Select Case Right(reg!IniciarDiciendo2,
3)
Case "(a)"
Select Case Right(reg!IniciarDiciendo2, 4)
Case "r(a)":
IniciarEn2 = Mid(reg!IniciarDiciendo2, 1, (Len(reg!IniciarDiciendo2)
- 3)) & " "
Case Else
IniciarEn2 = Mid(reg!IniciarDiciendo2,
1, (Len(reg!IniciarDiciendo2) - 3)) & " "
End Select
Case
Else: IniciarEn2 = reg!IniciarDiciendo2 & " "
End Select
Else
IniciarEn2 = ""
End If
If Forms!ListaEmailGenericoEnvioICQ!UtilizarNumeroDesti
= -1 Then If Not IsNull(Forms!ListaEmailGenericoEnvioICQ!Nombre) Then vNombre
= Forms!ListaEmailGenericoEnvioICQ!Nombre & " " Else vNombre = ""
If reg!UtilizarEmail = -1 Then vEmail = Forms!ListaEmailGenericoEnvioICQ!Email
& " " Else vEmail = ""
Me!TituloNombre.ControlSource
= "='" & vNombre & "'"
Me!Email.ControlSource
= "='" & vEmail & "'"
If reg!UtilizarTextoMensaje
= -1 Then Me!TextoMensaje.ControlSource = "='" & reg!EspacioBlanco
& IniciarEn & IniciarEn2 & vNombre & reg!TextoMensaje & "'"
Exit Sub
End Select
Select Case Forms!ContactManagerReportesModuloEnvio.Tag
Case "ReportesDirectorioContactManager" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Not IsNull(reg!IniciarDiciendo) Then
Select Case Right(reg!IniciarDiciendo,
3)
Case "(a)": If Forms!ContactManagerReportesModuloEnvio!Sexo =
"Masculino" Then IniciarEn = Mid(reg!IniciarDiciendo, 1, (Len(reg!IniciarDiciendo)
- 3)) & " " Else IniciarEn = Mid(reg!IniciarDiciendo, 1, (Len(reg!IniciarDiciendo)
- 4)) & "a "
Case Else: IniciarEn = reg!IniciarDiciendo &
" "
End Select
Else
IniciarEn = ""
End If
If Not IsNull(reg!IniciarDiciendo2) Then
Select Case Right(reg!IniciarDiciendo2,
3)
Case "(a)"
Select Case Right(reg!IniciarDiciendo2, 4)
Case "r(a)":
If Forms!ContactManagerReportesModuloEnvio!Sexo = "Masculino"
Then IniciarEn2 = Mid(reg!IniciarDiciendo2, 1, (Len(reg!IniciarDiciendo2) - 3))
& " " Else IniciarEn2 = Mid(reg!IniciarDiciendo2, 1, (Len(reg!IniciarDiciendo2)
- 3)) & "a "
Case Else
If Forms!ContactManagerReportesModuloEnvio!Sexo
= "Masculino" Then IniciarEn2 = Mid(reg!IniciarDiciendo2, 1, (Len(reg!IniciarDiciendo2)
- 3)) & " " Else IniciarEn2 = Mid(reg!IniciarDiciendo2, 1, (Len(reg!IniciarDiciendo2)
- 4)) & "a "
End Select
Case Else: IniciarEn2 = reg!IniciarDiciendo2
& " "
End Select
Else
IniciarEn2 = ""
End If
If reg!UtilizarTitulo = -1 Then vTitulo = Forms!ContactManagerReportesModuloEnvio!Titulo
& " " Else vTitulo = ""
If reg!UtilizarNombre = -1
Then vNombre = Forms!ContactManagerReportesModuloEnvio!Nombre & " "
Else vNombre = ""
If reg!UtilizarPuesto = -1 Then vPuesto = Forms!ContactManagerReportesModuloEnvio!Puesto
Else vPuesto = ""
If reg!UtilizarDepartamento = -1 Then vDepartamento
= Forms!ContactManagerReportesModuloEnvio!Departamento & " " Else
vDepartamento = ""
If reg!UtilizarRazonSocial = -1 Then vRazonSocial
= Forms!ContactManagerReportesModuloEnvio!RazonSocial Else vRazonSocial = ""
If reg!UtilizarEmail = -1 Then vEmail = Forms!ContactManagerReportesModuloEnvio!Email
& " " Else vEmail = ""
If reg!UtilizarTelefono = -1
Then vTelefono = Forms!ContactManagerReportesModuloEnvio!Telefono & "
" Else vTelefono = ""
If reg!UtilizarDireccion = -1 Then vDireccion
= Forms!ContactManagerReportesModuloEnvio!Direccion & " " Else vDireccion
= ""
If reg!UtilizarCampo1 = -1 Then vCampo1 = Forms!ContactManagerReportesModuloEnvio!Campo1
& " " Else vCampo1 = ""
If reg!UtilizarCampo2 = -1
Then vCampo2 = Forms!ContactManagerReportesModuloEnvio!Campo2 & " "
Else vCampo2 = ""
If reg!UtilizarCampo3 = -1 Then vCampo3 = Forms!ContactManagerReportesModuloEnvio!Campo3
& " " Else vCampo3 = ""
Me!TituloNombre.ControlSource
= "='" & vTitulo & vNombre & "'"
Me!Puesto.ControlSource
= "='" & vPuesto & "'"
Me!Departamento.ControlSource
= "='" & vDepartamento & "'"
Me!RazonSocial.ControlSource
= "='" & vRazonSocial & "'"
Me!Email.ControlSource
= "='" & vEmail & "'"
Me!Telefono.ControlSource
= "='" & vTelefono & "'"
Me!Direccion.ControlSource
= "='" & vDireccion & "'"
Me!Campo1.ControlSource
= "='" & vCampo1 & "'"
Me!Campo2.ControlSource
= "='" & vCampo2 & "'"
Me!Campo3.ControlSource
= "='" & vCampo3 & "'"
If reg!UtilizarTextoMensaje
= -1 Then Me!TextoMensaje.ControlSource = "='" & reg!EspacioBlanco
& IniciarEn & IniciarEn2 & vTitulo & vNombre & reg!TextoMensaje
& "'"
Exit Sub
Case Else '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Not IsNull(reg!IniciarDiciendo) Then
Select Case Right(reg!IniciarDiciendo,
3)
Case "(a)": If Forms!ContactManagerDir!Sexo = "Masculino"
Then IniciarEn = Mid(reg!IniciarDiciendo, 1, (Len(reg!IniciarDiciendo) - 3)) &
" " Else IniciarEn = Mid(reg!IniciarDiciendo, 1, (Len(reg!IniciarDiciendo)
- 4)) & "a "
Case Else: IniciarEn = reg!IniciarDiciendo &
" "
End Select
Else
IniciarEn = ""
End If
If Not IsNull(reg!IniciarDiciendo2) Then
Select Case Right(reg!IniciarDiciendo2,
3)
Case "(a)":
Select Case Right(reg!IniciarDiciendo2, 4)
Case "r(a)":
If Forms!ContactManagerDir!Sexo = "Masculino"
Then IniciarEn2 = Mid(reg!IniciarDiciendo2, 1, (Len(reg!IniciarDiciendo2) - 3))
& " " Else IniciarEn2 = Mid(reg!IniciarDiciendo2, 1, (Len(reg!IniciarDiciendo2)
- 3)) & "a "
Case Else
If Forms!ContactManagerDir!Sexo =
"Masculino" Then IniciarEn2 = Mid(reg!IniciarDiciendo2, 1, (Len(reg!IniciarDiciendo2)
- 3)) & " " Else IniciarEn2 = Mid(reg!IniciarDiciendo2, 1, (Len(reg!IniciarDiciendo2)
- 4)) & "a "
End Select
Case Else: IniciarEn2 = reg!IniciarDiciendo2
& " "
End Select
Else
IniciarEn2 = ""
End If
If reg!UtilizarTitulo = -1 Then vTitulo = Forms!ContactManagerDir!Titulo
& " " Else vTitulo = ""
If reg!UtilizarNombre = -1
Then vNombre = Forms!ContactManagerDir!Nombre & " " Else vNombre
= ""
If reg!UtilizarPuesto = -1 Then vPuesto = Forms!ContactManagerDir!Puesto
Else vPuesto = ""
If reg!UtilizarDepartamento = -1 Then vDepartamento
= Forms!ContactManagerDir!Departamento & " " Else vDepartamento
= ""
If reg!UtilizarRazonSocial = -1 Then vRazonSocial = Forms!ContactManagerDir![Razón
Social] Else vRazonSocial = ""
If reg!UtilizarEmail = -1 Then vEmail
= Forms!ContactManagerDir!Email & " " Else vEmail = ""
If reg!UtilizarTelefono = -1 Then vTelefono = Forms!ContactManagerDir!Teléfono1
& " " Else vTelefono = ""
If reg!UtilizarDireccion
= -1 Then vDireccion = Forms!ContactManagerDir!Direccion & " " Else
vDireccion = ""
If reg!UtilizarCampo1 = -1 Then vCampo1 = Forms!ContactManagerDir!Campo1a
& " " Else vCampo1 = ""
If reg!UtilizarCampo2 = -1
Then vCampo2 = Forms!ContactManagerDir!Campo2a & " " Else vCampo2
= ""
If reg!UtilizarCampo3 = -1 Then vCampo3 = Forms!ContactManagerDir!Campo3a
& " " Else vCampo3 = ""
Me!TituloNombre.ControlSource
= "='" & vTitulo & vNombre & "'"
Me!Puesto.ControlSource
= "='" & vPuesto & "'"
Me!Departamento.ControlSource
= "='" & vDepartamento & "'"
Me!RazonSocial.ControlSource
= "='" & vRazonSocial & "'"
Me!Email.ControlSource
= "='" & vEmail & "'"
Me!Telefono.ControlSource
= "='" & vTelefono & "'"
Me!Direccion.ControlSource
= "='" & vDireccion & "'"
Me!Campo1.ControlSource
= "='" & vCampo1 & "'"
Me!Campo2.ControlSource
= "='" & vCampo2 & "'"
Me!Campo3.ControlSource
= "='" & vCampo3 & "'"
If reg!UtilizarTextoMensaje
= -1 Then Me!TextoMensaje.ControlSource = "='" & reg!EspacioBlanco
& IniciarEn & IniciarEn2 & vTitulo & vNombre & reg!TextoMensaje
& "'"
Exit Sub
End Select End
Sub |
Imágenes
Únicamente
los documentos de tipo Snap Shot incluirán las imágenes, líneas
y palabras de arte que utilice en los informes, los demás formatos Doc, RTF y
HTML no los incluirán, en el caso de los documentos con formato HTML, usted
podrá incluir las imágenes y líneas en la plantilla que utilice.
Exportar
el Informe creado al sistema SPMD
1.
Haga clic con el botón derecho del mouse sobre el informe creado, y se
abrirá el menú contextual
2.
Seleccione la opción "Guardar como o exportar", en la ventana
que se abre, active la casilla "En un archivo o en una base de datos externos",
haga clic en "aceptar", se abre la ventana de búsqueda de archivos.
3.
Busque el archivo "SPMD_3x.mdb" en el directorio "C:\Rasgosoft2000\SPMD"
o en el directorio en el que haya instalado el SPMD, seleccione el archivo y presione
"Exportar", si el informe existe en el SPMD, el sistema le indicará
si desea reemplazarlo.
Utilizar
el Informe creado en el sistema SPMD
1.
Al realizar un envío en el módulo de mensajería, introduzca
en el campo "Nombre del Documento ubicado en este sistema".
