Skip to content

Instantly share code, notes, and snippets.

@romuloccomp

romuloccomp/gist:389abbc601767910106c

Created March 13, 2015 13:53
Show Gist options
  • Save romuloccomp/389abbc601767910106c to your computer and use it in GitHub Desktop.
Save romuloccomp/389abbc601767910106c to your computer and use it in GitHub Desktop.
Download ZIP
Json Igot
Raw
gistfile1.txt
----
troca essa parte
IF h-field:BUFFER-VALUE(i-cont2) <> ? THEN DO:
{&OUT} CHR(34) + h-field:NAME + '_' + TRIM(STRING(i-cont2)) + CHR(34) + ':' + CHR(34) + h-field:BUFFER-VALUE(i-cont2) + CHR(34).
IF i-cont2 < h-field:EXTENT THEN
{&OUT} ','.
END.
------
por essa:
DO i-cont2 = 1 TO h-field:EXTENT:
IF h-field:BUFFER-VALUE(i-cont2) <> ? THEN DO:
{&OUT} CHR(34) + h-field:NAME + '_' + TRIM(STRING(i-cont2)) + CHR(34) + ':' + CHR(34) + h-field:BUFFER-VALUE(i-cont2) + CHR(34).
IF i-cont2 < h-field:EXTENT THEN
{&OUT} ','.
END.
END.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment