Need Help Here

Fred

Hi Fred 

Need help here, need to display the data in DatosCSVText, the botton work in 'Archivo CSV' but need display the data in DatosCSVText

Thanks.

let xResponse := dialog(" General Archivo CSV ", " Esta impresion solo se ejecuta desde la Web ?", ["SI", "CANCELA"]);
if xResponse = "SI" then
    'Archivo CSV' := null;
    DatosCSVText := " ";
    let xMd := 'Busqueda por Mes';
    let csvHeader := "Codigo Documento,'Nombre Documento','Disciplina',Monto,Rev 0";
    let dataArray := for a in (select 'Datos Transferidos' where month('Rev 0') = xMd) order by 'Rev 0' do
            a.CodigoDoc + "," + a.Documento_dt + "," + a.Disciplina_dt + "," + a.number(Monto) +
            "," +
            a.date('Rev 0')
        end;
    let csvBody := join(dataArray, "
");
    let finalCSV := csvHeader +
        "
" +
        csvBody;
    'Archivo CSV' := createTextFile(this, finalCSV, "ArchivoCSV.csv");
    " Retrieve the email address of the recipient from the 'Datos Empresa' table ";
    let destinatario := first(select 'Datos Empresa').Email;
    " Send an email with the CSV file attached ";
    let destinatario := first(select 'Datos Empresa').Email;
    sendEmail({
        from: userEmail(),
        to: destinatario,
        subject: "Datos Transferidos en formato CSV",
        text: "Adjunto se encuentra el archivo de datos transferidos.",
        html: "<h1>Datos Transferidos</h1>",
        attachments: 'Archivo CSV'
    })
end