Pular para o conteúdo
Início » Advpl TamSX3

Advpl TamSX3

    Tipo: Processamento
    Retorna o tamanho de um campo no SX3 (dicionário de dados).
    Sintaxe
    TamSx3(cCampo)
    Parâmetros
    cCampo – Nome do campo.
    Retorna
    aTam – Array com o tamanho e decimais do campo.
    Exemplo
    // Exemplo de uso da funcao TAMSX3
    // Array auxiliar:
    aCampos := { {“B1_COD” ,”C”},;
    {“B1_DESC”,”C”},;
    {“B1_QE” ,”N”},;
    {“B1_PRV1”,”N”} }
    // Cria arquivo de trabalho com o tamanho dos campos
    // exatamente como na base de dados, evitando erros de ]
    // “Data Width Error”:
    i := 0
    aStru := {}
    For i:=1 To Len(aCampos)
    cCpo := aCampos[i,1]
    cTp := aCampos[i,2]
    aTam := TamSx3(cCpo)
    aAdd(aStru,{cCpo,cTp,aTam[1],aTam[2])
    Next i
    cArq := CriaTrab(aStru,.T.)
    // O programa continua. . .
    Return