Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 5 minutos


Nota

Esta rutina se ajustó para cumplir con la Ley general de protección de datos (Ley n° 13.70), siendo que algunos campos que presentan información considerada como datos sensibles y/o personales se ocultarán, dejando de ser legibles.

01. VISIÓN GENERAL

Esta rutina permite que una empresa corporativa pueda transferir los débitos de los clientes (títulos por cobrar) entre las sucursales de la empresa y/o entre otros clientes. Este recurso atiende, principalmente, al ramo de transportes, permitiendo que una empresa (corporativa) pueda registrar débitos entre las sucursales que originarán los títulos del Cuentas por cobrar.

El sistema pone a disposición un cuestionario (checklist), configurado por la tabla AA - Checklist para transferencia de débito, en el módulo Configurador, para que la empresa defina si la cobranza debe transferirse. Sin embargo, si fuera necesario implementar las opciones de verificación en el checklist, la Tabla AA puede modificarse, por medio del Configurador. De esta manera, solamente se permitirá la inclusión de la solicitud, si todas las preguntas del checklist fueran respondidas con Sí (marcadas con X).

La Tabla SE6 - Solicitud de transferencia almacena toda la información de la transferencia, y cada solicitud se graba con un número secuencial en el campo Nº Solic.

El campo Cuota Dest. almacena la cuota del título generado en la sucursal de destino (débito), originado por la rutina Transferencia de títulos por cobrar entre sucursales, grabando y validando este código.

Para que se haga efectiva la transferencia, la sucursal de destino puede aceptar o rechazar esta solicitud, por medio de la rutina Aprobación/Rechazo solicitud.

 


Importante:

El campo Suc. Débito permite que se grabe la sucursal de débito del título (en personalización) o por el módulo Gestión de transporte (sistema original). Este campo es la referencia para la selección de las solicitudes de transferencia, indicando, en una base de Cuentas por Cobrar compartida, cuál es la sucursal de débito.



Importante:

El sistema no permite la solicitud de transferencia en las siguientes situaciones:

  • Si el título no estuviera en cartera.
  • Si el título ya tuvo algún tipo de baja.
  • Si ya hubo solicitud de transferencia anterior para este título.
  • Si el tipo de título es del tipo cobranza anticipada - "RA". Este bloqueo ocurre debido a que ya ocurrió movimiento bancario, causando una interrupción de consistencia de la información procesada. 



02. UTILIZACIÓN

La rutina tiene dos formas de utilización de la rutina automática, una llamando a la función Fa620Auto, otra vía execauto.

Al llamar a la función Fa620Auto, es posible solicitar solamente transferencia entre sucursales, ya vía execauto también es posible la modificación de cliente. 

Ejemplo de utilización de la rutina automática por la función Fa620Auto:


Fa620Auto 
User Function FINA620AUTO( )

LOCAL nRecSe1	:= 18	//Recno del título principal
LOCAL cfilDest	:= "02"	//Sucursal de destino
LOCAL cHist		:= "Prueba transferencia"	//Historial de transferencia
LOCAL lAprov	:= .T.	//Ejecuta aprobación de transferencia automáticamente
LOCAL lMsgErro	:= .T.	//Presenta mensaje de error "Mostraerro( )".

PRIVATE lMsErroAuto := .F. 

Fa620Auto(nRecSe1,cfilDest,cHist, lAprov, lMsgErro)

If lMsErroAuto
    MostraErro( )
Else
    Alert("¡Título transferido con éxito!")
Endif

Return


Ejemplo de utilización de la rutina automática por execauto:

FINA620 
User function ExFin620()

Local cE1_Pref := " "
Local cE1_Num := "00102031 "
Local cE1_Cliente := "000001"
Local cE1_Loja := "01"
Local cFilSE1 := "D MG 01 "
Local cFilDest := "D MG 01 "
Local aCab := {}

Private lMsErroAuto := .F.

RPCSETENV("T1", "D MG 01", "teste", "123", "FIN", "FINA620")

If SE1->( dbSeek( cFilSE1+cE1_Pref+cE1_Num+" "+"NF"))

	aadd(aCab, {"E6_FILDEB",cFilDest})
	aadd(aCab, {"E6_CLIENTE",cE1_Cliente})
	aadd(aCab, {"E6_LOJA",cE1_Loja})
	aadd(aCab, {"AUTHISTDEB","Teste"})

	//Inclusión de solicitud de transferencia
	MSExecAuto({|a, b| FINA620(a,b)}, aCab,3)

	If lMsErroAuto
		mostraerro()
	Else
		MsgStop("Proceso realizado con éxito.")
	EndIf
Else
	MsgStop("Título no encontrado.")
EndIf

Return







03. CONTENIDOS RELACIONADOS

  • Situación de cobranza