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