Linha Microsiga Protheus

Árvore de páginas

01. DATOS GENERALES


Producto

TOTVS Backoffice

Línea de producto: 

Línea Protheus

Segmento:

Servicios

Módulo:SIGAFIN - Financiero
Función:



RutinaNombre TécnicoFecha
COLLECTOR.SERVICE.TLPPService del servicio de cobradores14/02/2022



País:Todos
Ticket:N/A
Requisito/Story/Issue (informe el requisito vinculado):

DMINA-14277

DMINA-15056


02. SITUACIÓN/REQUISITO

Se necesita crear un punto de entrada en el cual permita llenar el campo del Cobrador cuando seleccione el código del cliente, con el Cobrador que tiene asociado en Clientes X Cobrador.


03. SOLUCIÓN

Se crea el punto de entrada F998NRDCOB en la rutina collector.service.tlpp del servicio de cobradores, con el objetivo de que el usuario al seleccionar el Cliente en Nuevo Recibo se coloque el Cobrador que tiene asignado en la rutina de Clientes X Cobrador.


  1. Realizar un respaldo del repositorio (RPO).
  2. Realizar la aplicación del parche correspondiente al issue DMINA-14277.
  3. Validar que las rutinas actualizadas en el repositorio, coincidan con las descritas en el encabezado del presente Documento Técnico, así como las fechas.

  1. Crear la función de usuario F998NRDCOB para el cual permita llenar el campo del Cobrador cuando seleccione el código del cliente.

  2. La función debe retornar el código de cobrador.
  3. Dentro del módulo Financiero ejecutar la rutina TOTVS Recibo (Actualizaciones | Cuentas por cobrar | TOTVS Recibo).
  4. Dentro del aplicativo de TOTVS Recibo, ir a Nuevo Recibo.
  5. Al seleccionar el cliente se ejecutará el punto de entrada F998NRDCOB .
  6. La función de usuario retornará el cobrador correspondiente y se colocará en el box de cobrador.


04. INFORMACIÓN ADICIONAL

DescripciónActualizaciones
Punto de entrada:

F998NRDCOB

Nombre del programa fuente:COLLECTOR.SERVICE.TLPP
Parámetros recibidos:



NombreTipoDescripción
PARAMIXB[1]CCliente seleccionado.
PARAMIXB[2]CTienda del cliente seleccionado.



Respuesta:



NombreTipoDescripciónObligatorio
cCobradorCRetorna el Cobrador que será colocado en el box del cobrador.Si



Ejemplo:

#Include 'Protheus.ch'

User Function F998NRDCOB()
Local cCobrador := ""
Local cClient := Paramixb[1]
Local cLoja := Paramixb[2]

dbselectarea("SAR")
("SAR")->(dbGoTop())

    While ("SAR")->(!eof())
        If  xFilial("SAR")== SAR->AR_FILIAL .AND. cClient == SAR->AR_CODCLI .AND. cLoja == SAR->AR_LOJCLI
             cCobrador :=AR_CODCOBR
        EndIf
        ("SAR")->(dbskip())
    EndDo

("SAR")->(dbCloseArea())

Return cCobrador


¡IMPORTANTE!

La presente solución aplica para versión 12.1.33 o superior, siempre y cuando se tengan las rutinas actualizadas a la fecha de la expedición del issue.


05. ASUNTOS RELACIONADOS

Puntos de entrada disponibles en TOTVS Recibo