Histórico da Página

01. DATOS GENERALES

Producto:

Solucoes_espanhol

Solucao	TOTVS Backoffice

Línea de producto:

Linhas_totvs_espanhol

Linha	Línea Protheus

Segmento:

Segmentos_totvs_espanhol

Segmento	Backoffice

Módulo:

SIGAFIN - Financiero

Función:

Rutina	Nombre Técnico	Fecha
FINANCIAL-TITLES.DATA.TLPP	Data del servicio de títulos financieros	2124/11/2024

País:

Todos (Mercado Internacional)

Ticket:

N/A

Requisito/Story/Issue (informe el requisito vinculado):

DMINA-24106

02. DESCRIPCIÓN

En el panel general de la rutina de TOTVS Totvs Recibo (FINA998), se requiere habilitar un punto de entrada (PE) denominado F887FPG. Este punto de entrada permitirá agregar filtros personalizados al Query de panel general, pero en este caso necesitamos filtrar los títulos correspondientes a un cobrador, asegurando que dicho cobrador esté asociado con el cliente que se encuentra logueado en Protheus.

03. INFORMACIÓN ADICIONAL

Se realizan modificaciones en los siguientes fuentescomponentes:

Data del servicio de títulos financieros (FINANCIAL-TITLES.DATA.TLPP): Se habilita el nuevo punto de entrada (PE) F887FPG, que incorpora en el query ejecutado al seleccionar "Aplicar filtros" del panel general los cobradores asociados al cliente filtros personalizados por el cliente, en este caso filtramos por el cobrador y usuario logueado.

Totvs custom tabs box

tabs	Conf. Previas, Flujo de Pruebas
ids	paso1,paso2

Totvs custom tabs box items

default	yes
referencia	paso1

Realizar un respaldo del repositorio (RPO).
Realizar la aplicación del parche correspondiente al issue DMINA-24106.
Validar que las rutinas actualizadas en el repositorio, coincidan con las descritas en el encabezado del presente Documento Técnico, así como las fechas.
Realice la compilación del punto de entrada F887FPG.

Desde el módulo configurador (SIGACFG):

Expandir

title	Configuración de campos y usuario

Aviso

title	Importante

La siguiente configuración de campos es con la finalidad de realizar la prueba de nuevo punto de entrada.

Los campos pueden variar de tamaño, código o nombre.

Configuración del campo Cod Usuario (AQ_CODUSR):
- Campo = Cod. Usuario.
- Tipo = 1- Carácter.
- Tamaño = 6
- Formato = @!
- Contexto = 1- Real
- Propiedad = 1 - Modificar
- Título = Cod. Usuario
- Consulta = USR - Usuarios (Importante es donde se selecciona el código de usuario que será asociado al cobrador)
Configuración del campo Cobrador (E1_COBRAD):
- Campo = Cobrador
- Tipo = 1- Carácter
- Tamaño = 6
- Contexto = 1- Real
- Propiedad = 1 - Modificar
- Título = Cobrador
- Consulta = SAQ - Cobrador (Importante es donde se selecciona el código de cobrador que será asociado a la cuenta por cobrar)
Configuración de un usuario en Protheus, en este cliente será asociado con el cobrador.

En la rutina de Clientes (MATA030) que se encuentra en el menú perteneciente al módulo Financiero (Actualizaciones | Archivos) registre un cliente.
En la rutina de Bancos (MATA070) que se encuentra en el menú perteneciente al módulo Financiero (Actualizaciones | Archivos) registre un banco.
En la rutina de Cobradores (FINA011) que se encuentra en el menú perteneciente al módulo Financiero (Actualizaciones | Archivos) registre un cobrador y en el campo Cod Usuario (AQ_CODUSR) seleccione en la consulta estándar el usuario configurado anteriormente (Este paso asociara el cliente logueado con el cobrador).
En la rutina de Productos (MATA010) que se encuentra en el menú perteneciente al módulo Financiero (Actualizaciones | Archivos) registre un producto nuevo.
En la rutina de Cuentas Por Cobrar (FINA040) que se encuentra en el menú perteneciente al módulo Financiero (Actualizaciones | Cuentas Por Cobrar) genere una cuenta por cobrar y en el campo Cobrador (E1_COBRAD) informar el cobrador configurado anteriormente y generar otra una cuenta por cobrar pero sin un cobrador asociado.

Totvs custom tabs box items

default	no
referencia	paso2

Ingresar a Protheus con el usuario y contraseña del nuevo usuario configurado anteriormente.
Ingresar a la rutina TOTVS Recibo; SIGAFIN - Actualizaciones | Cuentas por Cobrar | TOTVS Recibo.
Permanecer en la ventana de "Panel General":
1. Informar en el filtro los datos del cliente configurado anteriormente así como la tienda.
2. Dar clic en "Aplicar"
3. Verificar que muestre solamente el título el cual se configuró un cobrador y este mismo asociado al usuario logueado en el sistema.

Ejemplo punto de entrada F887FPG:

Tiene el objetivo de filtrar personalizar el Query que se usa para obtener los títulos al dar dar clic en "Aplicar" en la sección de panel general, este punto de entrada filtra los títulos que tienen asociado un cobrador y este mismo está asociado al usuario logueado en Protheus.

Parámetros recibidos:

Nombre	Tipo	Descripción
Paramixb[1]	C	Parámetro en el cual se obtiene el nombre del usuario logueado
Paramixb[2]	C	Parámetro en el cual se obtiene el ID del usuario logueado
Paramixb[3]	C	Where del Query que se utiliza para obtener los títulos en Panel General

Retorno: variable de tipo carácter (correo electrónicoWhere modificado).

Nombre	Tipo	Descripción
cCobradorcAuxWhere	C	Retorna los cobradores asociados al cliente logueadoEjemplo: E1_COBRAD = '00001' OR E1_COBRAD = '00002'el Where enviado en el parámetro Paramixb[3], modificado con los nuevos filtros personalizados.

Bloco de código

title	Ejemplo de código

#INCLUDE "Totvs.ch"
  
User Function F887FPG()
    Local cUser     := PARAMIXB[1]      //ParametroParámetro en el cual se obtiene el nombre del usuario logueado
    Local cUseriD   := PARAMIXB[2]      //ParametroParámetro en el cual se obtiene el ID del usuario logueado
    Local cWhere    := PARAMIXB[3]      //Where del Query que se utiliza para obtener los títulos en Panel General
    Local cAlias    := getNextAlias()    
    Local aSAQS     := {} As Array
    Local cCobrador := "" As Character
    Local cCobradorcQryFields := "" As Character
    Local cQryWhere qryFields := "" As Character
	Local qryWhere    Local cQuery    := "" As Character
    Local nX        := 0  As Numeric
    Local cAuxWhere := "" As Character
 
 
    //Definimos los campos a retornar en la intruccióninstrucción SQL
	qryFields    cQryFields := "AQ_COD,AQ_NOME"
    //Definimos la condición, en este caso de que el codigocódigo del campo usuario sea igual al ID del usuario logueado
	qryWhere    cQryWhere  := " AQ_CODUSR ='"+ cUseriD +"' "
    //Definimos la estructura de la intrucción SQL a ejecutar
	query    cQuery := "SELECT "+ qryFieldscQryFields +" FROM "+ retSqlName("SAQ") +" WHERE "+ qryWherecQryWhere
    //Ejecutamos la intrucción
	query    cQuery := changeQuery(querycQuery)
 
    mpSysOpenQuery(querycQuery, cAlias)
	    (cAlias)->(DbGoTop())
	    While (cAlias)->(!Eof())
        IF aScan(aSAQS,(cAlias)->AQ_COD) == 0 //IntruccionInstrucción para no repetir cobradores en el array
            aadd(aSAQS,(cAlias)->AQ_COD)      //Agrega en un array los cobradores asociados con el cliente logueado  
        ENDIF
        (cAlias)->(dbSkip())
	    ENDDO
    (cAlias)->(dbCloseArea())
 
    //Preparamos la cadena que se retornara con los cobradores 
    IF !VAZIO(aSAQS)
        FOR nX := 1 To LEN(aSAQS)
			            cCobrador += " E1_COBRAD =" + aSAQS[nX]
            IF nX < LEN(aSAQS)
               cCobrador += " OR "
            ENDIF
		        NEXT
    ELSE
    //Opcional (En caso de que no tenga cobradores asociados) si no se informa mostrara todos los titulos
        cCobrador := "E1_COBRAD = 'ZZZZZ'"
    ENDIF
 
    ENDIF
cAuxWhere := cWhere +' AND ( '+cCobrador+' )'
 
Return cCobradorcAuxWhere

04. ASUNTOS RELACIONADOS

...

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão Atual

Chave

01. DATOS GENERALES

02. DESCRIPCIÓN

03. INFORMACIÓN ADICIONAL

04. ASUNTOS RELACIONADOS