Histórico da Página

El informe se desarrolló utilizando la tecnología TReport, donde permite la inclusión de campos de la
tabla de provisión, títulos por cobrar (SE1), Clientes (SA1), Complemento de cliente (AI0), Factura de salida (SD2), Situación de cobranza (FRV), Producto (SB1), Complemento de producto (SBM) y Referencia del cuentas por cobrar(SK1).

Parámetros del informe:

1.  
1. ¿De Cliente?
1. Seleccione el cliente inicial para selección de los títulos que pretende filtrar.
2. ¿De Tienda?
1. Seleccione la tienda del cliente inicial para selección de los títulos que pretende filtrar.
3. ¿A Cliente?
1. Seleccione el cliente final para selección de los títulos que pretende filtrar.
4. ¿A Tienda?
1. Seleccione la tienda del cliente final para selección de los títulos que pretende filtrar.
5. ¿Código de la provisión?
1. Informe la provisión que se listará en el informe. Parámetro del tipo rango que permite intervalos con punto y coma.
6. ¿Fecha provisión inicial?
1. Seleccione la fecha inicial de la provisión que pretende filtrar.
7. ¿Fecha provisión final?
1. Seleccione la fecha final de la provisión que pretende filtrar.
8. ¿Muestra?
1. Todos
2. Constituidos
3. Revertidos
9. ¿Selecciona sucursal?
1. Sí
1. Se procesarán los registros de las sucursales seleccionadas.
2. No
1. Se procesarán solamente los registros de la sucursal actual.
10. Situación de cobranza
1. Informe qué situaciones de cobranza se considerarán en el informe.
11. Muestra prorrateo Fact
1. Defina si mostrará e prorrateo por ítem registrado en la factura.
12. ¿Estatus Proc.?
1. Todos
2. Simulados
3. Hechos efectivo
13. ¿De Fecha de referencia?
1. Seleccione la fecha inicial de referencia que pretende filtrar.
14. ¿A Fecha de referencia?
1. Seleccione la fecha final de referencia que pretende filtrar.

La constitución de PDD y la reversión de la constitución se contabilizará a partir de los asientos estándar:

#include "protheus.ch"
#include "topconn.ch"
#include "RWMAKE.CH"
#include "TBICONN.CH"

/*/{Protheus.doc} F645Const

Constitución PDD

@type function
@version 1.0
@author totvs
@return nil
/*/
User Function F645Const()

    Local lAutomato := .T.
    Local nOperation:= 3
    Local aSitCob   := {}

    Private lMsErroAuto := .f. 
	Private lAutoErrNoFile	:= .T.

    PREPARE ENVIRONMENT EMPRESA "T1" SUCURSAL "D MG 01"

    //Situaciones de cobranza que se filtrarán
	Aadd(aSitCob, '0')
	Aadd(aSitCob, '3')
	Aadd(aSitCob, '4')
	Aadd(aSitCob, '5')
	Aadd(aSitCob, '6')
	Aadd(aSitCob, '7')

    //Ajusta preguntas (F12)

    Pregunta("FINA645C",.F.) 

    SetMVValue("FINA645C","MV_PAR01", DDATABASE )              // ¿Fecha de referencia?                                          
    SetMVValue("FINA645C","MV_PAR02", 1 )                      // ¿Número de días de atraso?                                                                                  
    SetMVValue("FINA645C","MV_PAR03", 3 )                      // ¿Transferir a Provisión?                                                 
    SetMVValue("FINA645C","MV_PAR04", "PDD001"  )              // ¿De Cliente?                                                                                 
    SetMVValue("FINA645C","MV_PAR05", "01" )                   // ¿De Tienda del cliente?                                                              
    SetMVValue("FINA645C","MV_PAR06", "PDD001"  )              // ¿A Cliente?                            
    SetMVValue("FINA645C","MV_PAR07", "01" )                   // ¿A Tienda del cliente?                          
    SetMVValue("FINA645C","MV_PAR08", CTOD("01/01/2001") )     // ¿De Emisión?                                     
    SetMVValue("FINA645C","MV_PAR09", CTOD("31/12/2049") )     // ¿A Emisión?                                                   
    SetMVValue("FINA645C","MV_PAR10", 2 )                      // ¿Selecciona sucursal? 1 = Sí 2 = No                                                              
    SetMVValue("FINA645C","MV_PAR11", "8" )                    // ¿Situación de cobranza PDD?                                                                
    SetMVValue("FINA645C","MV_PAR12", 2 )                      // ¿Selecciona Sit. de Cobranza?  1 = Sí 2 = No                                                                            
    SetMVValue("FINA645C","MV_PAR13", 2 )                      // ¿Considera negociados?   1 = Sí 2 = No  

    //Constitución
    MSExecAuto({|a,b,c| FINA645(a,b,c)},  lAutomato, nOperation, aSitCob )

    If !lMsErroAuto
        conout("¡éxito! ")
    Else
        conout("¡Error!")
        mostraErro()
    EndIf

Return

#include "protheus.ch"
#include "topconn.ch"
#include "RWMAKE.CH"
#include "TBICONN.CH"

/*/{Protheus.doc} F645EfeCon

Efetiva Constitución PDD

@type function
@version 1.0
@author totvs
@return nil
/*/
User Function F645EfeCon()

    Local lAutomato := .T.
    Local nOperation:= 4
    Local aSitCob   := {}
    Local cNroProc  := "000010"

    Private lMsErroAuto := .f. 
	Private lAutoErrNoFile	:= .T.

    PREPARE ENVIRONMENT EMPRESA "T1" SUCURSAL "D MG 01"

    //Ajusta perguntas (F12)
    Pergunte("FINA645D",.F.)        
    SetMVValue("FINA645D","MV_PAR01", 2 )  // ¿Muestra asiento?                                     
    SetMVValue("FINA645D","MV_PAR02", 2 )  // ¿Agrupa asiento?                                                                       
    SetMVValue("FINA645D","MV_PAR03", 2 )  // ¿Considera movimiento posterior generación del proceso?                                                     

    //Hacer efectivo     MSExecAuto({|a,b,c,d| FINA645(a,b,c,d)},  lAutomato, nOperation, aSitCob, cNroProc )

    If !lMsErroAuto
        conout("¡éxito! ")
    Else
        conout("¡Error!")
        mostraErro()
    EndIf

Return

#include "protheus.ch"
#include "topconn.ch"
#include "RWMAKE.CH"
#include "TBICONN.CH"

/*/{Protheus.doc} F645Revers

Reversión de la Constitución PDD

@type function
@version 1.0
@author totvs
@return nil
/*/
User Function F645Revers()

    Local lAutomato := .T.
    Local nOperation:= 5
    Local aSitCob   := {}
    Local cNroProc  := "000010"
    Local dDtRef    := CTOD("14/10/2021")
    Private lMsErroAuto := .f. 
	Private lAutoErrNoFile	:= .T.

    PREPARE ENVIRONMENT EMPRESA "T1" SUCURSAL "D MG 01"

    //Ajusta preguntas (F12)

    Pregunta("FINA645E",.F.) 
                                         
    SetMVValue("FINA645E","MV_PAR01", 1 )             // ¿Revertir provisión? - 1 = Todos / 2 = Títulos dados de baja / 3 = Abertos
    SetMVValue("FINA645E","MV_PAR02", "PDD001" )      // ¿De Cliente?                                                  
    SetMVValue("FINA645E","MV_PAR03", "01" )          // ¿De Tienda del cliente?             
    SetMVValue("FINA645E","MV_PAR04", "PDD001"  )     // ¿A Cliente?                            
    SetMVValue("FINA645E","MV_PAR05", "01" )          // ¿A Tienda del cliente?                 
    SetMVValue("FINA645E","MV_PAR06", 2  )            // ¿Selecciona sucursal? 1 = Sí 2 = No
    SetMVValue("FINA645E","MV_PAR07", dDtRef )        // ¿Fecha de referencia?
    SetMVValue("FINA645E","MV_PAR08", dDatabase )     // ¿De Emisión?
    SetMVValue("FINA645E","MV_PAR09", dDatabase )     // E¿A Emisión?

    //Reversión de la Constitución
    MSExecAuto({|a,b,c,d| FINA645(a,b,c,d)},  lAutomato, nOperation, aSitCob, cNroProc )

    If !lMsErroAuto
        conout("¡éxito! ")
    Else
        conout("¡Error!")
        mostraErro()
    EndIf

Return

#include "protheus.ch"
#include "topconn.ch"
#include "RWMAKE.CH"
#include "TBICONN.CH"

/*/{Protheus.doc} F645EfetRev

EHacer efectiva la reversión de la Constitución PDD

@type function
@version 1.0
@author totvs
@return nil
/*/
User Function F645EfetRev()

    Local lAutomato := .T.
    Local nOperation:= 6  //Hacer efectiva la reversión
    Local aSitCob   := {}
    Local cNroProc  := "000010"

    Private lMsErroAuto := .f. 
	Private lAutoErrNoFile	:= .T.

    PREPARE ENVIRONMENT EMPRESA "T1" SUCURSAL "D MG 01"

    //Ajusta preguntas (F12)
    Pregunta("FINA645D",.F.)        
    SetMVValue("FINA645D","MV_PAR01", 2 )  // ¿Muestra asiento?                                     
    SetMVValue("FINA645D","MV_PAR02", 2 )  // ¿Agrupa asiento?                                                                       
    SetMVValue("FINA645D","MV_PAR03", 2 )  // ¿Considera movimiento posterior generación del proceso?                                                     

    //Hacer efetivo
    MSExecAuto({|a,b,c,d| FINA645(a,b,c,d)},  lAutomato, nOperation, aSitCob, cNroProc )

    If !lMsErroAuto
        conout("¡éxito! ")
    Else
        conout("¡Error!")
        mostraErro()
    EndIf

Return