Clipper/FiveWin - limitacion del Fwrite

********************

FUNCTION genera_csv(arr)

**************************

*proposito : generar archivo plano (.csv)

LOCAL cCadena

lflag_csv := .t.

xtipo        := "52"

xfolio       := STRZERO(xnrguia,10)

xrut         := STR(xrutoptica,8) + '-' + xdigrut

xafecto      := "SI"

xindtraslado := "1"

FOR i := 1 TO LEN(arr)

    xcantidad := STR(VAL(arr[i,1]),8)

    xproducto := arr[i,2]

    xprecio   := STR(VAL(arr[i,3]),11)

    cCadena := xtipo                  + ";" +;

               xfolio                 + ";" +;

               STR(i,10)              + ";" +;

               DTOC(xfcguia)          + ";" +;

               xrut                   + ";" +;

               PADR(xnomcli,50)       + ";" +;

               PADR(xgiro,40)         + ";" +;

               PADR(xciudad,60)       + ";" +;

               PADR(xdirecc,60)       + ";" +;

               PADR(xafecto,6)        + ";" +;

               PADR(xproducto,80)     + ";" +;

               SPACE(11)              + ";" +;

               xcantidad              + ";" +;

               xprecio                + ";" +;

               SPACE(12)              + ";" +;

               SPACE(05)              + ";" +;

               SPACE(12)              + ";" +;

               SPACE(12)              + ";" +;

               SPACE(12)              + ";" +;

               SPACE(16)              + ";" +;

               SPACE(11)              + ";" +;

               SPACE(08)              + ";" +;

               SPACE(11)              + ";" +;

               SPACE(07)              + ";" +;

               SPACE(12)              + ";" +;

               SPACE(13)              + ";" +;

               SPACE(13)              + ";" +;

               SPACE(09)              + ";" +;

               SPACE(08)              + ";" +;

               PADR(xindtraslado,17)  + ";" +;

               SPACE(09)              + ";" +;

               SPACE(09)              + ";" +;

               SPACE(16)              + ";" +;

               SPACE(18)              + ";" +;

               PADR(xciudad,20)       + ";" +;

               SPACE(21) + CHR(10)+CHR(13)

    IF FWRITE(nFileSal, cCadena, 676) < 676

       alerta("Error!")

    ENDIF

NEXT

RETURN NIL