PC Toledo

Código: Selecionar todos

FUNCTION CRIAARQ( )
PRIVATE aStru

aStru := {{"emp_conh","C",002,000},{"des_conh","C",004,000},;
               {"rem_conh","C",004,000},{"nro_conh","C",006,000},;
               {"tab_conh","C",002,000},{"dat_conh","C",008,000},;
               {"qtd_vol","C",003,000},{"especie","C",003,000},;
               {"qtd_vol","C",003,000},{"especie","C",003,000},;
               {"pes_conh","C",005,000},{"volumosa","C",001,000},;
               {"x_peso","C",003,000},{"nro_nfs","C",014,000},;
               {"val_conh","C",012,000},{"val_merc","C",014,000},;
               {"marca","C",003,000},{"coleta","C",001,000},;
               {"val_colet","C",008,000},{"fret_pes","C",008,000},;
               {"fret_val", "C",008,000},{"fret_val","C",008,000},;
               {"sec_cat",  "C",008,000},{"despacho","C",008,000},;
               {"base_cal", "C",008,000},{"val_icm","C",008,000},;
               {"pag_conh", "C",001,000},{"cod_mot","C",002,000},;
               {"pag_conh", "C",001,000},{"cod_mot","C",002,000},;
               {"flag_imp", "C",001,000},{"nivel_cal","C",001,000} }

DBCREATE("MOVTEMP.DBF",aStru)

RETURN NIL

Código: Selecionar todos

file_usu := {}
IF !FILE("Usuarios")
    AADD(file_usu,{"COD_USUAR","N",06,0})	// Codigo do usuario
    AADD(file_usu,{"LOG_USUAR","C",08,0})	// Login
    AADD(file_usu,{"SEN_USUAR","C",08,0})	// Senha
    AADD(file_usu,{"PRV_USUAR","C",03,0})	// Privilegios
    DBCREATE("Usuarios",file_usu)
    USE	
ENDIF