$io_fun_banco= new class_funciones_banco();
	$io_fun_banco->uf_load_seguridad("SCB","sigesp_scb_p_pago_caficultores.php",$ls_permisos,$la_seguridad,$la_permisos);

	require_once("sigesp_scb_c_pago_caficultores.php");
	$io_pago_caficultores  = new sigesp_scb_c_pago_caficultores();
	
	$f="txt/transferencia.txt";
    header("Content-type: application/octet-stream");
    header("Content-Disposition: attachment; filename=\"$f\"\n");
    $fp=fopen($f,'w+');        
	$cabecera="";
	$debito="";
	$credito="";
	$pie="";
    $cabecera="HEADER  ";
    $resultado=$io_pago_caficultores->uf_crear_lote("00102");
    $lote = $resultado->fields["fn_crear_lote"];
	$cabecera.=str_pad($lote,8,"0",STR_PAD_LEFT); //Identificador del lote
	$cabecera.="00002100"; //Numero Negociacion
	$cabecera.="G200095490"; //Rif CVC
	$cabecera.=date("d/m/Y"); //Fecha propuesta de pago
	$cabecera.=date("d/m/Y"); //Fecha de envio
	fwrite($fp,$cabecera);
    fwrite($fp,"\r\n");
    $total=0;

	
	function sustituirCE($valor)
	{
		$String = ereg_replace("[äáàâãª]","a",$valor);
		$String = ereg_replace("[ÁÀÂÃÄ]","A",$String);