PC Toledo

Código: Selecionar todos

REQUEST DBFCDX
RDDSETDEFAULT('DBFCDX')
DBSETDRIVER('DBFCDX')

USE FORNECE ALIAS FORN NEW

cNTX:=INDEXEXT()
aArq := {}

AADD( aArq, { ;
				{"FORNECE","Arquivo de Fornecedores" },;  // Arquivo DBF
				{"FORNECE" }					  ,;  // Arquivo CDX
				{"DELETADO+NOME","CODIGO","CGC"}	  ,;  // Campos
				"FORN"						   ,;  // Alias
				})


// CRIA O CDX
For nArq = 1 to len( aArq )
	FOR nI:=1 TO LEN(aArq[nArq,3])  // contas os campos
		ordCreate((aArq[nArq,2,1]+cNTX),,(aArq[nArq,3,nI]),{||&(aArq[nArq,3,nI])},)
	NEXT
NEXT
dbSetIndex((aArq[1,2,1]+cNTX))
DBSETORDER(2)
DBGOTOP()
BROWSE()

Código: Selecionar todos

FUNCTION CdxCreate()

REQUEST DBFCDX
RDDSETDEFAULT('DBFCDX')
// DBSETDRIVER('DBFCDX')  --> desnecessário                                        

SET AUTOPEN ON     // --> Se os nomes do arquivo DBF e do CDX forem iguais, abre o CDX automaticamente no USE
SET AUTORDER TO 1  // --> Se AUTOPEN estiver ON, faz o set order no USE

LOCAL nFile
LOCAL nFileCount
LOCAL nTag
LOCAL nTagCount
LOCAL nIndex
LOCAL cNTX:=INDEXEXT()
LOCAL aArq := {}

AADD( aArq, { ;
            {"FORNECE","Arquivo de Fornecedores" },;  // Arquivo DBF
            {"FORNECE" }                 ,;  // Arquivo CDX
            {"DELETADO+NOME","CODIGO","CGC"}     ,;  // Campos
            {"Ativo","Codigo","CGC"}  // Nomes das TAGS
            "FORN"                     ,;  // Alias
            })

// CRIA O CDX
nFileCount := Len( aArq )

For nFile := 1 TO nFileCount
   USE aArq[ nFile, 1, 1] EXCLUSIVE NEW ALIAS aArq[ nFile, 5] // ABRIR EM MODO EXCLUSIVO
   FErase( aArq[ nFile, 2] + cNTX )
   nTagCount := LEN(aArq[ nFile,3])  // conta os campos (as ordens ou tags)
   FOR nTag := 1 TO nTagCount
     //ORDCREATE(<cOrderBagName>,[<cOrderName>],<cExpKey>, <bExpKey>, [<lUnique>]) --> NIL		     
     OrdCreate( aArq[ nFile, 2], aArq[ nFile, 4, nTag], aArq[ nFile, 3, nTag], &( "{ || " + aArq[ nFile, 3, nTag + " }" ), .F. )
   NEXT
   DbCloseArea( aArq[ nFile, 5] )
NEXT

USE FORNECE SHARED NEW ALIAS FORN

/*
dbSetIndex((aArq[1,2,1]+cNTX))        // --> Se Autopen estiver ON, não precisa abrir os arquivo estrutural de índice (,CDX)
DbSetOrder( aArq)
DBSETORDER(2)
*/

FORN->( OrdSetFocus (2 ), DBGOTOP(), BROWSE() )  // Ou OrdSetFocus( "Codigo" )

QUIT

Código: Selecionar todos

LOCAL nFile
LOCAL nFileCount
LOCAL nTag
LOCAL nTagCount
LOCAL nIndex
LOCAL aArq := {}

REQUEST DBFCDX
RDDSETDEFAULT('DBFCDX')
cNTX:=INDEXEXT()

* SET AUTOPEN ON  // --> Se os nomes do arquivo DBF e do CDX forem iguais, abre o CDX automaticamente no USE
* SET AUTORDER TO 1 // --> Se AUTOPEN estiver ON, faz o set order no USE

AADD( aArq, { ;
	 {"FORNECE","Arquivo de Fornecedores" },; // Arquivo DBF
	 {"FORNECE" }									,; // Arquivo CDX
	 {"DELETADO+NOME","CODIGO","CGC"}		,; // Campos
	 {"Ativo","Codigo","CGC"}					,; // Nomes das TAGS
	 "FORN" })								   	// Alias

// CRIA O CDX
nFileCount	:= Len( aArq )

For nFile = 1 TO nFileCount
   cFILEDBF	:= AARQ[nFILE,1,1]
   cALIAS	:= aArq[nFile,5]
   USE &cFILEDBF EXCLUSIVE NEW ALIAS &cALIAS // ABRIR EM MODO EXCLUSIVO
   * cARQCDX	:= aArq[nFile,2,1]+cNTX
   FErase( "&cARQCDX" )
   nTagCount := LEN(aArq[nFile,3]) // conta os campos (as ordens ou tags)
   FOR nTag := 1 TO nTagCount
	 //ORDCREATE(<cOrderBagName>,[<cOrderName>]		,<cExpKey>		   , <bExpKey>							  , [<lUnique>]) --> NIL
	 * OrdCreate( aArq[ nFile,2,1], aArq[ nFile, 4, nTag], aArq[ nFile, 3, nTag], &( "{ || " + aArq[nFile,3,nTag] + " }" ), .F. )
	 OrdCreate( aArq[ nFile,2,1], aArq[ nFile, 4, nTag], aArq[ nFile, 3, nTag],&( "{ || " + aArq[nFile,3,nTag] + " }" ) , .F. )
   NEXT
   DbCloseArea( aArq[ nFile, 5] )
NEXT

USE FORNECE SHARED NEW ALIAS FORN

/*
dbSetIndex((aArq[1,2,1]+cNTX))    // --> Se Autopen estiver ON, não precisa abrir os arquivo estrutural de índice (,CDX)
DbSetOrder( aArq)
DBSETORDER(2)
*/

FORN->( OrdSetFocus (1), DBGOTOP(), BROWSE() ) // Ou OrdSetFocus( "Codigo" )
QUIT