Aplicações Satélite com .Net e Progress

Olá Amigos,

Estamos participando de um projeto em um de nossos clientes e com isto estamos reformulando um dos processos de venda: A Cotação de Vendas

Atualmente este cliente necessita disponibilizar uma licença do ERP para que os representantes acessem apenas um módulo (poucas telas), disputando assim o número de licenças com os demais usuários.

O processo da cotação na WEB, utiliza as licenças do ERP apenas nas requisições (poucos segundos) e assim que a requisição encerra a licença é liberada. Olhando por este aspecto, uma simples licença pode ser compartilhada por 10 ou 20 usuários, talvez até mais dependendo da requisição.

Os projetos WEB são desenvolvidos todos sobre a plataforma ASP.NET e acessando o ERP através do Framework. Toda a regra de negócio, API e DBO, podem ser reutilizadas no lado Progress.

Abaixo algumas imagens do processo de cotação pela WEB.

Este processo diminui o número de licenças e permite que o usuário acesse o sistema de qualquer lugar, inclusive com uma conexão não tão boa.

Quer criar um sistema satélite e economizar licenças?

Como fazer uma janela de atualização em poucos segundos

Uma breve apresentação de criação de uma janela de atualização através do Visual Studio.

Framework WebSpeed Orientado a Objetos?

Exemplo de aplicação WebSpeed orientada a objetos.

Já imaginou interceptar o click de um botão no seu programa ".w" ou ".p" como se fosse um evento similar ao AppBuilder e ainda manipular os objetos do HTML como se fossem controles Windows?

Veja um exemplo:

Página HTML

Evento Progress
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE $BotaoAdicionarMais_Click Procedure
PROCEDURE $BotaoAdicionarMais_Click :
/*------------------------------------------------------------------------------
Purpose:
Parameters:
Notes:
------------------------------------------------------------------------------*/
    DEF INPUT PARAMETER pArgumentos AS CHAR NO-UNDO.
    CAST($Get("$Marcado"), com.Framework.WebControls.WebCheckBox):Marcado = YES.
    CAST($Get("$Descricao"), com.Framework.WebControls.WebTextBox):Texto = "12345".
    CAST($Get("$lblDescricao"), com.Framework.WebControls.WebLabel):Texto = "Novo Label".
    CAST($Get("$lblDescricao"), com.Framework.WebControls.WebLabel):Atributos = "color:blue;".
    CAST($Get("$Categoria"), com.Framework.WebControls.WebComboBox):AddItem("4", "Novo Item", YES).
    CAST($Get("$Categoria"), com.Framework.WebControls.WebComboBox):Selecionado = "4".
    CAST($Get("$BotaoAdicionarMais"), com.Framework.WebControls.WebButton):Texto = "Texto Alterado no BOTÃO".
    CAST($Get("$BotaoAdicionarMais"), com.Framework.WebControls.WebButton):Desabilitado = YES.
    DEF VAR lit2 AS com.Framework.WebControls.WebLiteral.
    lit2 = NEW com.Framework.WebControls.WebLiteral("litAux", "Teste Literal").
    RETURN "OK".
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

Resultado HTML após o evento Click

Este framework é um protótipo que demonstra a capacidade do WebSpeed. Enquanto muitos costumam dizer que o WebSpeed não tem potencial nós dizemos o contrário.

Consulte também nosso Framework para a plataforma .Net. Integração nativa com a tecnologia Progress.

Carlos R. Nobrega
Arquiteto de Soluções .Net

Modernize a sua aplicação

Modernização de um aplicação consiste em analisar o cenário atual e estudar possíveis soluções do mercado. Depende da empresa tomar uma ação para adaptar-se a um modelo mais atual de tecnologia.
Em alguns casos a modernização ocorre em passos lentos, em outros casos com uma velocidade sem igual.

O processo de modernização consiste também em evoluir servidores, sistemas operacionais, banco de dados e claro, a aplicação. Pode-se adotar os modelos tradicionais do mercado ou utilizar novas tecnologias.

O Framework utiliza como base de apresentação e acesso a dados a plataforma .Net, que é utilizada em grande escala pelo mercado. Como exemplo citamos a Microsoft que integrou as suas principais ferramentas ao modelo .Net, disponibilizando assim um acesso nativo à plataforma através das ferramentas: SQLServer, SharePoint, BizTalk, ERPs e CRM entre outras.

Fazendo uso intenso de .Net, o Framework foi projetado para atuar em camadas, ou seja, existem três camadas básicas e outras intermediárias que não influem na infra-estrutura. As camadas são:

• Dados (Persistence Layer)
• Regra de Negócio (Business Layer)
• Apresentação (Presentation Layer)

Com o framework, boa parte da regra de negócio de sua aplicação poderá ser reaproveitada, pois o acesso a dados permanece com o domínio Progress 4GL tendo como controlador de transações a aplicação .Net através do AppServer. O uso de APIs e BOs podem persistir.

A camada de apresentação é o resultado final de uma modernização de um sistema. É o produto que o usuário visualiza. Então atuando neste processo pode-se reduzir o nível de reclamações do sistema por parte dos usuário e assim ganha-se tempo para uma completa evolução. Com o modelo proposto pelo Framework, este passo ocorre de forma rápida e totalmente integrada ao ERP da Totvs ou com um sistema legado.

Abaixo demonstro alguns modelos da camada de apresentação que pode ser integrado ao Datasul EMS.

Modelo Maintenance

Modelo Master x Detail

Modelo Search (Zoom)

Web Access (Portal pela Web com .Net. Não usa WebSpeed)

Modelos customizados (uso de componentes .Net do mercado)

Carlos R. Nobrega
Arquiteto de Soluções .Net

Progress 10.2B e o AppServer

Com a versão 10.2B do Progress, todos os bugs para uso do AppServer com .Net foram corrigidos. O Framework .Net é 100% baseado nesta nova versão do Progress. Com o uso desta versão conseguimos evoluir a camada CRUD do framework e assim reduzir ainda  mais a codificação dos aplicativos.

Para conhecer mais sobre o AppServer acesse o site do fabricante: http://web.progress.com/pt-br/index.html