Função: MsCreate - Criação de arquivo
Versões: Advanced Protheus 5.07 , Advanced Protheus 5.08 , Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Nível de Acesso: Nível 1 (Acesso Clientes)
Idiomas: Espanhol , Inglês
Descrição:
Cria um arquivo/tabela dependendo da RDD.
Programa Fonte:
APLIB070.PRW
Sintaxe:

MsCreate - Criação de arquivo ( cArquivoaStru [ cDriver ] ) --> lOk

Retorno:
    lOk(logico)
  • .T. se conseguiu criar o arquivo/tabela
Observações

As RDDs que podem ser utilizadas são as seguintes:

    • DBFCDX: RDD indicada no arquivo de configuração (.INI) do Server do Protheus pela chave LocalFiles
    • DBFCDXADS: ADS Local
    • DBFCDXAX: ADS Server
    • TOPCONN: Top Connect
    • BTVCDX: BTrieve
    • CTREECDX: CTree
Exemplos
#include "protheus.ch"User Function TestCreate()Local cFile := '\DATA\SA1990'Local cTarget := '\DATA\XXX'Local aStru := {}Local lBack := .F.DBUseArea( .T., "DBFCDX", cFile, "TMP", .T., .F. )aStru := DBStruct()DbCloseArea()If ( lBack := MSCreate( cTarget, aStru )) // Cria arquivo de destino     ApMsgAlert("Arquivo criado.")EndIfReturn
Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cArquivo Caracter Nome do arquivo/tabela a ser criado X
aStru Vetor Vetor com a estrutura do arquivo/tabela no formato:
[1] nome do campo/coluna (maximo de 10 caracteres);
[2] tipo ("C" = Caracter, "N" = Numérico, "M" = Memo, "L" = Lógico, "D" = Data);
[3] tamando (numerico);
[4] decimais (numerico)
X
cDriver Caracter RDD a ser utilizada para criar o arquivo/tabela. O valor padrão é a RDD principal do ambiente que esta sendo executado

  • Sem rótulos