Code: Select all | Expand
ARQ1:="mem:"+alltrim(NomeUsuario)+"1"
aStruct_ARQ1:={{ "QTPD", "N", 05, 0 },;
{ "QTST", "N", 05, 0 },;
{ "QTCL", "N", 05, 0 },;
{ "QTD1", "N", 05, 0 },;
{ "VLR1", "N", 12, 2 },;
{ "QTD2", "N", 05, 0 },;
{ "VLR2", "N", 12, 2 },;
{ "QTD3", "N", 05, 0 },;
{ "VLR3", "N", 12, 2 },;
{ "QTD4", "N", 05, 0 },;
{ "VLR4", "N", 12, 2 },;
{ "VEND", "C", 14, 0 },;
{ "NOMV", "C", 40, 0 },;
{ "FILX", "C", 02, 0 },;
{ "FILI", "C", 02, 0 },;
{ "CTRL", "N", 04, 0 },;
{ "IMPR", "L", 01, 0 }}
dbCreate( Arq1, aStruct_ARQ1, "DBFCDX")
use &ARQ1 alias AREA1 new exclusiv
inde on FILX+NOMV+VEND to &ARQ1
.
.
.
.
AREA1->(dbclosearea())
DBDROP(arq1)