// <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
// Reporte :           FUNCIONES DE USO COMUN EN LOS REPORTES DE                 LibDigitales.rpt
//                        CLIENTES Y PROVEEDORES ADMINPAQ
// Sistema:     ADMINPAQ  Versión v10.0 Windows
//
// Descripcion:En este archivo se guardan todas las funciones comunes que se utilizan para la impresion
// de documentos digitales
//
// Creación  :  Agosto 2017
// >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
// Historia de modificaciones
//  Fecha      Nombre   IDLotus    Descripcion
// <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
// <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Columnas 1; 1
// FUNCIONES <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

// ==========================================================================================
// fImprimeEstado
// Descripcion :   Funcion que regresa el estado de un documento digital
// Salida:  Estado del documento digital
// ==========================================================================================
DefFunc fImprimeEstado(aEstado; aCancelado)
    Local lRegresa
    lRegresa = ''
    Escoge aEstado
        Caso 1
            lRegresa = 'Sin Timbrar'
        FinCaso
        Caso 2
            lRegresa = 'Timbrado'
        FinCaso
        Caso 3
            lRegresa = 'Cancelado'
        FinCaso
        Caso 4
            lRegresa = 'Por confirmar'
        FinCaso
     FinEscoge
    Si aCancelado = 1
        lRegresa = 'Cancelado'
    FinSi
    Retorna lRegresa
Finfunc

// ==========================================================================================
// fBuscaEstadoREP
// Descripcion :   Funcion que regresa el estado de la factura con respecto a sus pagos
// Salida:  Estado del documento digital
// ==========================================================================================
DefFunc fBuscaEstadoREP(aEstado)
    Local lRegresa
    lRegresa = ''
    Escoge aEstado
        Caso 1
            lRegresa = 'Complemento Timbrado'
        FinCaso
        Caso 2
            lRegresa = 'Complemento Parcial'
        FinCaso
        Caso 3
            lRegresa = 'Complemento Pendiente'
        FinCaso
        Caso 4
            lRegresa = 'Complemento Opcional'
        FinCaso
     FinEscoge
    Retorna lRegresa
Finfunc


// ==========================================================================================
// fBuscaFormaPago
// Descripcion :   Imprime la forma de pago de acuerdo al catálogo del SAT
// Salida:  Descripción de la forma de pago
// ==========================================================================================
DefFunc fBuscaFormaPago(aFormaPago)
    Local lRegresa

    lRegresa = ''
    Escoge aFormaPago
        Caso '01'
            lRegresa = 'Efectivo'
        FinCaso
        Caso '02'
            lRegresa = 'Cheque nominativo'
        FinCaso
        Caso '03'
            lRegresa = 'Transferencia electrónica de fondos'
        FinCaso
        Caso '04'
            lRegresa = 'Tarjeta de crédito'
        FinCaso
        Caso '05'
            lRegresa = 'Monedero electrónico'
        FinCaso
        Caso '06'
            lRegresa = 'Dinero electrónico'
        FinCaso
        Caso '08'
            lRegresa = 'Vales de despensa'
        FinCaso
        Caso '12'
            lRegresa = 'Dación en pago'
        FinCaso
        Caso '13'
            lRegresa = 'Pago por subrogación'
        FinCaso
        Caso '14'
            lRegresa = 'Pago por consignación'
        FinCaso
        Caso '15'
            lRegresa = 'Condonación'
        FinCaso
        Caso '17'
            lRegresa = 'Compensación'
        FinCaso
        Caso '23'
            lRegresa = 'Novación'
        FinCaso
        Caso '24'
            lRegresa = 'Confusión'
        FinCaso
        Caso '25'
            lRegresa = 'Remisión de deuda'
        FinCaso
        Caso '26'
            lRegresa = 'Prescripción o caducidad'
        FinCaso
        Caso '27'
            lRegresa = 'A satisfacción del acreedor'
        FinCaso
        Caso '28'
            lRegresa = 'Tarjeta de débito'
        FinCaso
        Caso '29'
            lRegresa = 'Tarjeta de servicios'
        FinCaso
        Caso '30'
            lRegresa = 'Aplicación de anticipos'
        FinCaso
        Caso '99'
            lRegresa = 'Por definir'
        FinCaso
     FinEscoge
    
    Retorna lRegresa
FinFunc

