$variable_tipo_de_pago = "";
$xCajero = new cSystemUser($DRec["idusuario"]);
$variable_nombre_del_cajero = $xCajero->getNombreCompleto();
$variable_observacion_del_recibo = $DRec["observacion_recibo"];
$variable_datos_de_pago = $xRec->getDatosDeCobro();
$xSuc = new cSucursal($DRec["sucursal"]);
$xSuc->init();
$DSuc = $xSuc->getDatosInArray();
$variable_lugar = $DSuc["municipio"] . ", " . $DSuc["estado"];
$variable_marca_de_tiempo = date("Ymd:His");
$tipoDocto = "";
$estatDocto = "";
$letras = "";
/* -----------------Verifica si es solicitud, si es imprime el saldo actual */
if ($origen == TESORERIA_RECIBOS_ORIGEN_CRED or $origen == TESORERIA_RECIBOS_ORIGEN_MIXTO) {
    $DD = $xRec->getInfoDoctoInArray();
    if ($DD != false and is_array($DD)) {
        $sdoctacred = $DD["saldo_actual"];
        $sdov = $DD["saldo_vencido"];
        $nota = "Capital Insoluto: \$ " . getFMoney($sdoctacred) . "|";
        $tipoDocto = eltipo("creditos_modalidades", $DD["tipo_credito"]);
        $estatDocto = eltipo("creditos_estatus", $DD["estatus_actual"]);
        $letras = "/" . $DD["pagos_autorizados"];
        //$DD["ultimo_periodo_afectado"] .
    }
}
//inicializa variables vacias
$svar_info_cred = "_NO_APLICA_";
$variable_lista_beneficiados = "_NO_APLICA_";
$tipo_de_credito = "_NO_APLICA_";
$monto_ministrado = "_NO_APLICA_";