Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 8

changes.mady.by.user Carlos Daniel Espinoza Iemma

Gravado em

comparado com

Nova versão 9

changes.mady.by.user Luis Angel Aboytes Rocha

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Totvs custom tabs box
tabsPre-condiciones,Procedimiento
idspaso1,paso2
Totvs custom tabs box items
defaultyes
referenciapaso1
  1. Realizar un respaldo del repositorio (RPO).
  2. Por medio del módulo configurador (SIGACFG) dar de alta un nuevo campo y activamos el parámetro "Nuevo Recibo en MVC" (MV_RECMVC). (NOTA: Este campo se usa para el ejemplo de este issue, no es obligatoria su configuración) 
    1. Configuración del campo:
      1. Campo = A1_XMAILRC
      2. Tipo = 1-Carácter
      3. Tamaño = 30
      4. Contexto = 1-Real
      5. Propiedad = 1-Modificar
      6. Nombre = PE Email
    2. Configuración del parámetro:
      1. MV_RECMVC = .T.
  3. Aplicar el parche correspondiente al issue DMINA-26064.
  4. Validar que las rutinas actualizadas en el repositorio, coincidan con las descritas en el encabezado del presente Documento Técnico
  5. Compilar el PE F998DMAIL
    1. Aviso
      titleImportante

      El campo donde se muestra el correo electrónico tendrá, por defecto, el tamaño del valor retornado por el Punto de Entrada (PE). Si necesitas agregar más espacios a la derecha para incluir direcciones de correo electrónico adicionales, deberás utilizar la función PADR() en el PE (Se puede visualizar un ejemplo de este caso en el siguiente bloque de código). Esta función te permitirá agregar espacios adicionales al final del correo electrónico retornado.

    2. Bloco de código
      titleF998DMAIL
      linenumberstrue
      collapsetrue
      #Include 'Protheus.ch'
 
User Function F998DMAIL()
 
    Local cCliente  := Paramixb[1]
    Local cLoja     := Paramixb[2]
    Local cCorreo   := ""
    Local aArea     := GetArea()
 
    DbSelectArea("SA1")
    SA1->(DbSetOrder(1))//A1_FILIAL+A1_COD+A1_LOJA                                                                  
    If SA1->(MsSeek(xFilial("SA1")+cCliente+cLoja))
         cCorreo := Alltrim(SA1->A1_XMAILRC)  //Se obtiene el correo del campo creado
	   //cCorreo:= PADR(SA1->A1_XMAILR, 99)   //Ejemplo agregando espacios a la derecha para agregar correos extra en el input
    EndIf
    SA1->(DbCloseArea())
    RestArea(aArea)
 
Return cCorreo
  6. A través de la rutina “Productos”, ubicada en el módulo de SIGAFAT (Actualizaciones | Archivos), incluir un producto.
  7. A través de la rutina “Bancos”, ubicada en el módulo de SIGAFAT (Actualizaciones | Archivos), incluir un banco.

  8. A través de la rutina “Clientes”, ubicada en el módulo de SIGAFAT (Actualizaciones | Archivos), incluir un cliente y en el campo PE Email (A1_XMAILRC) configuramos un correo diferente al del campo Email (A1_EMAIL).

  9. A través de la rutina "Tipo de Entrada y Salida", ubicada en el módulo de Facturación, SIGAFAT (Actualizaciones | Archivos), incluir una TES de salida.
  10. A través de la rutina "Factura de Venta", ubicada en el módulo Facturación, SIGAFAT (Actualizaciones | Movimientos), capturar una Factura timbrada para el Cliente con el producto y la TES previamente configurada.
Totvs custom tabs box items
defaultno
referenciapaso2
  1. Ingresar a la rutina TOTVS Recibo; SIGAFIN - Actualizaciones | Cuentas por Cobrar | TOTVS Recibo.
    1. Ingresar a la opción de "Nuevo recibo".

      1. Capturar los datos del encabezado para obtener la Factura del cliente configurado.

      2. Seleccionar la Factura generada anteriormente.

      3. Agregar una Forma de Pago correspondiente al valor total de la Factura.

      4. Dar clic en los parámetros (F4) y habilitar el envío por email (En caso de no tener configurado estos parámetros de clic aquí.).

      5. Confirmar el guardado y verificar que en la ventana del correo electrónico se muestre el correo configurado al cliente en el campo PE Email (A1_XMAILRC).

...