Bio do usuário

Born April 2, 1980. Divorced, 1 child.
Bachelor in Information Systems.
Dynamic, proactive, works synergistically in teams, always looking for knowledge and challenges.
Extensive experience in InterSytems technologies. Experience in health projects in the implementation of SGH Trakcare by InterSystems and Cerner Millenium, some projects were:

  • PMTUAS Government of the Federal District - Brasilia Brazil;
  • Project Vital Hospital Israelita Albert Einstein - São Paulo Brazil;
  • More Health Occidente SSMOC - Santiago de Chile Chile;
  • Participation in Projects with TIBCO Spotfire for clients such as Renault, Nissan - Paraná Brazil
  • RCI Argentina and Brazil
  • Odebrecht Oil and Gas -Rio de Janeiro Brazil
  • Ultragaz - Sao Paulo Brazil
  • Participation in Analytics Projects with Tableau and Power BI.

Diverse knowledge of programming languages such as: Java, C#, C, C++, Visual Basic, Java Script, SQL, COS (Caché Object Script), R, Python, Docker, Angular Business Intelligence;
Data Analytics;
Solution Architecture Design;
Development of Systems Integrations;
Web development;
Research in new technologies.

Mostrar tudo
Piracicaca - São Paulo - Brasil
Membro desde Dez. 8, 2015
Pinned posts:
Postagens:
Respostas:

Olá Edilson, você pode fazer o upload de arquivo através de um página CSP, utilizando um input do tipo file e fazendo o submit do arquivo e depois salva a stream no servidor utilizando a classe %File. Abaixo um exemplo, pode ter erro pois não executei.

Class cjs.UlpoadArquivo Extends %CSP.Page
{

ClassMethod OnPage() As %Status
{
  &HTML<
    <form method="post" enctype="multipart/form-data">
      <input type="file" name="file" />
      <input type="submit" />
    </form>
  >
  Return $System.Status.OK()
}

ClassMethod OnPreHTTP() As %Boolean [ ServerOnly = 1 ]
{
  #Dim %request As %CSP.Request = %request
  If (%request.Method = "POST" && %request.GetMimeData("file"))
  {
    #Dim arquivo As %File = ##Class(%File).%New("<caminho/nomeArquivo>")
    #Dim statusCode As %Status = arquivo.Open("NWS")
    If ($System.Status.IsError(statusCode))
    {
      #Dim mensagemErro As %String = $System.Status.GetErrorText(statusCode)
      &HTML<
        <span>Erro ao criar arqvuio #(mesnagemErro)# </span>
      >
      Return $System.Status.OK()
    }
    Set statuCode = arquivo.CopyForm(%request.GetMimeData("file"))
    If ($System.Status.IsError(statusCode))
    {
      Set mensagemErro = $System.Status.GetErrorText(statusCode)
      &HTML<
        <span>Erro ao salvar arqvuio #(mesnagemErro)# </span>
      >
      Return $System.Status.OK()
    }
    Do arquivo.Close()
    &HTML<
       <span>Arquivo carregado para o servidor com sucesso.</span>
    >
  }
  Return $System.Status.OK()
}

Olá Flávio,

Referente ao processo de criação de namespace e banco de dados você pode criar um manifesto de instalação e executar ele para automatizar a criação de tarefas de configuração de ambiente.

Dê uma olhada na documentação do Caché:

Creating and Using an Installation Manifest | Caché Installation Guide | Caché & Ensemble 2018.1.4 – 2018.1.8 (intersystems.com)
 

Aplicações do Open Exchange:
Certificações e credenciais da Credly:
Emblemas Global Masters:
Seguidores:
Seguindo: