CriaTrab - Retorna arquivo de trabalho

Função: CriaTrab - Retorna arquivo de trabalho

Descrição:

Esta função retorna o nome de um arquivo de trabalho que ainda não existe e dependendo dos parâmetros passados, pode criar um novo arquivo de trabalho.

Sintaxe:

CriaTrab → Retorna arquivo de trabalho ( [ aCampos ] [ lCria ] ) → cNomeArq

Retorno:

cNomeArq

Nome do arquivo gerado pela função.

Observações:

Se o parâmetro lCria for .T. é obrigatório a passagem do parâmetro aCampos.

Importante: A utilização da função CriaTrab já não é mais recomendada dada a evolução do produto. Para a geração de nomes temporários (como alias para query), recomendamos a utilização da função GetNextAlias e para a criação de tabelas temporárias, a recomendação é utilizar a FWTemporaryTable:

Desenvolvendo queries no Protheus

FWTemporaryTable

Retorno:

Caso lCria for .T., a função criará um arquivo com a estrutura definida no parâmetro aCampos. Caso lCria for .F., a função não criará arquivo de nenhum tipo, apenas fornecerá um nome válido.

Exemplos:

local cArq as character
local cIndice as character
local aStru as array
local cArqTrab as character

//Exemplo com lCria  = .F.
cArq := CriaTrab(NIL, .F.)
cIndice := "C9_AGREG+"+IndexKey()
Index on &cIndice To &cArq

//Exemplo com lCria = .T.

aStru := {}

AADD(aStru,{ "MARK"   , "C",  1, 0})
AADD(aStru,{ "AGLUT"  , "C", 10, 0})
AADD(aStru,{ "NUMOP"  , "C", 10, 0})
AADD(aStru,{ "PRODUTO", "C", 15, 0})
AADD(aStru,{ "QUANT"  , "N", 16, 4})
AADD(aStru,{ "ENTREGA", "D",  8, 0})
AADD(aStru,{ "ENTRAJU", "D",  8, 0})
AADD(aStru,{ "ORDEM"  , "N",  4, 0})
AADD(aStru,{ "GERADO" , "C",  1, 0})

cArqTrab := CriaTrab(aStru, .T.)

USE &cArqTrab ALIAS TRB NEW

Parâmetros:

Nome	Tipo	Descrição	Default
aCampos	Array	Array multidimensional contendo os campos a criar. {Nome, Tipo, Tamanho, Decimal}
lCria	Lógico	Determina se o arquivo de trabalho deve ser criado ( .T.) ou não (.F. )	.T.

Atalhos

Páginas filhas