Flagship Linux

[JoséQuintas]

Acho que faltou eu explicar porque não o Harbour:

Os índices do Flagship não são compatíveis com nada.
Então é tudo ou nada: ou troco tudo pra Harbour, ou nada, porque não dá pra usar simultâneo.

O problema é:

Comecei lá, falaram de um aplicativo em uso.
Na segunda semana, já não era apenas um, eram 2 (dois).
No momento, descobriram mais 6 ( seis).

Então...
Se não dá pra usar Harbour simultâneo, é usar Flagship até que TUDO esteja preparado pra Harbour.
Só depois disso é que vai dar pra pensar em trocar.

[JoséQuintas]

Abaixo a lista dos manuais.
Quase 2.000 páginas, mas fraco.
A maioria das coisas que interessam, que já existiam no Clipper !!!, só tem em versões mais novas do Flagship.
O Quick Reference é um dos mais interessantes.

[JoséQuintas]

Imagine um aplicativo em uso há muitos anos.
Flagship + Linux.
uns 50 usuários.
Tudo aparentemente funcionando normal.

Agora imagine uma coisa simples: alterar a errorsys e registrar erros.

Simples, tranquilo.... vai registrar alguns errinhos que os usuários não avisam.....

300.000 linhas em 15 dias !!!!!
Isso dá mais de 20.000 linhas por dia, se trabalhassem todo dia !!!!
Ou num arredondamento, umas 1.000 linhas por hora !!!

Para um aplicativo que ninguém relata problemas.... isto é incrível !!!!

Lógico...
Quando aparece algum erro na tela.... é culpa da versão nova kkk
Aí vai comparar ... é um erro que sempre existiu, mas por algum milagre ninguém tinha visto antes... kkk

O pior é que isso é real.

LIB gráfica?..... com 300.000 linhas de erro... nem fod.... kkkkk

[JoséQuintas]

Portei parte de minhas LIBs para Flagship Linux.
Talvez estejam mais compatíveis com Clipper/XHarbour por ter "voltado atrás", por exemplo retirar FOR/EACH, limitar a 10 caracteres, retirar funções exclusivas do Harbour.

digitação de usuário/senha

sistema1.png (2.79 KiB) Exibido 3310 vezes

O Tbrowse de seleção pra array

O menu com senhas de acesso

[JoséQuintas]

A configuração de acessos

o browse genérico

preview de relatórios (matricial)

rotinas de mensagem.

sistema7.png (5.42 KiB) Exibido 3310 vezes

[JoséQuintas]

E mais rotinas auxiliares, e outras que vou convertendo conforme vou me aprofundando nos fontes.

Na entrada das minhas rotinas o EXE aumentou, mas agora tá diminuindo, e ficando com menos erros.

20MB, subiu pra quase 21MB, e agora menos de 19MB, sendo que tem mais opções e recursos.

Aquela lista de 300.000 linhas de erro, é porque estavam demorando pra trocar a versão.

Agora está começando a ficar legal.

Só lembrando: flagship é limitado a 25 X 80, e não tem recurso gráfico e nem mesmo mouse.


Fontes não limitados a Flagship. Compilando com Harbour é outra história...

O Harbour está no aguardo, preparado pra entrar no lugar assim que possível, e já liberar mouse e mais linhas/colunas.

Como dá pra perceber aí... muuitas opções no menu.


A propósito:
Compilando com Flagship, usa IDX, um ou mais IDX por arquivo
Compilando com Harbour, usa CDX, um único CDX por arquivo com várias tags

A única coisa que gostei do Flagship foi retornar atributos do arquivo como -rwxrwxrwx.
No Harbour isso faz falta.
Apesar de ter contornado o problema, capturando do Linux fica lento quando se tratam de vários arquivos.

[JoséQuintas]

Só pra lembrar:
Todas essas rotinas estão no GitHub, na LIB JoseQuintas, que é a base dos meus aplicativos.

Quando chegar a vez do Harbour, talvez prepare a Sefazclass pra funcionar no Linux.

[JoséQuintas]

O cadastro genérico também, mas sem classe, e sem buttons....
Mas compilando com Harbour, pelo menos aceita mouse pra menu/browse do cadastro.

Código: Selecionar todos

#include "inkey.ch"

MEMVAR cOpc

PROCEDURE bhp0110

   LOCAL mieItem, GetList := {}
   PRIVATE cOpc := "C"

   IF ! AbreArquivos( "jpitem" )
      RETURN
   ENDIF

   DO WHILE .T.
      TelaDados( .F. )
      MenuManut( @cOpc )
      DO CASE
      CASE LastKey() == K_ESC
         EXIT
      CASE cOpc $ "+-PU"
         LOOP
      ENDCASE
      IF cOpc == "I"
         GOTO BOTTOM
         mieItem := StrZero( Val( mieItem ) + 1, 6 )
      ELSE
         mieItem := jpitem->ieItem
      ENDIF
      @ 2, 0 SAY "Codigo............:" GET mieItem PICTURE "@K 999999" VALID Val( mieItem ) > 0
      Mensagem( "Digite codigo do item, F9 pesquisa, ESC Sai" )
      READ
      Mensagem()
      IF LastKey() == K_ESC .OR. Val( mIeItem ) == 0
         LOOP
      ENDIF
      mieItem := StrZero( Val( mieItem ), 6 )
      SEEK mieItem
      TelaDados( .F. )
      IF cOpc == "I"
         IF Eof()
            GOTO BOTTOM
            mieItem := StrZero( Val( jpitem->ieItem ) + 1, 6 )
            RecAppend()
            REPLACE jpitem->ieItem WITH mieItem
            RecUnlock()
         ELSE
            MsgStop( "Codigo ja cadastrado" )
            LOOP
         ENDIF
      ENDIF
      IF cOpc != "I" .AND. Eof()
         MsgStop( "Codigo nao cadastrado" )
         LOOP
      ENDIF
      IF cOpc == "C"
         LOOP
      ENDIF
      IF cOpc == "E"
         IF Mensagem( "Confirma exclusao", "N,S", 1 ) != "S"
            LOOP
         ENDIF
         RecLock()
         DELETE
         RecUnlock()
         SKIP
         IF Eof()
            GOTO BOTTOM
         ENDIF
         LOOP
      ENDIF
      TelaDados( .T. )
   ENDDO
   CLOSE DATABASES

   RETURN

STATIC FUNCTION TelaDados( lDigita )

   LOCAL GetList    := {}
   LOCAL mieItem    := jpitem->ieItem
   LOCAL mieDescri  := jpitem->ieDescri
   LOCAL mieNcm     := jpitem->ieNcm
   LOCAL mieCest    := jpitem->ieCest
   LOCAL mieGtin    := jpitem->ieGTIN
   LOCAL mieGtinTri := jpitem->ieGtinTri
   LOCAL mieNome    := jpitem->ieNome
   LOCAL mieStatus  := jpitem->ieStatus

   hb_Default( @lDigita, .F. )
   @  2, 0 SAY "Codigo............:" GET mieItem                    WHEN .F.
   @  4, 0 SAY "Descricao.........:" GET mieDescri  PICTURE "@!S55" WHEN .F.
   @  5, 0 SAY "Nome..............:" GET mieNome    PICTURE "@!"    WHEN .F.
   @  6, 0 SAY "NCM...............:" GET mieNcm     PICTURE "@9"
   @  7, 0 SAY "CEST..............:" GET mieCest    PICTURE "@9"
   @  8, 0 SAY "GTIN..............:" GET mieGTIN    PICTURE "@9"
   @  9, 0 SAY "Gtin Tributavel...:" GET mieGtinTri PICTURE "@9"
   @ 10, 0 SAY "Status............:" GET mieStatus  PICTURE "!A" VALID mieStatus $ " I"
   IF lDigita
      Mensagem( "Digite campos, ESC Sai" )
      READ
      Mensagem()
   ELSE
      CLEAR GETS
   ENDIF
   IF LastKey() == K_ESC .OR. ! lDigita
      RETURN NIL
   ENDIF
   //IF cOpc == "I"
   //   RecAppend()
   //   REPLACE field->ieItem WITH mieItem
   //ENDIF
   RecLock()
   REPLACE ;
      jpitem->ieDescri  WITH mieDescri, ;
      jpitem->ieNome    WITH mieNome, ;
      jpitem->ieNcm     WITH mieNcm, ;
      jpitem->ieCest    WITH mieCest, ;
      jpitem->ieGtin    WITH mieGtin, ;
      jpitem->ieGtinTri WITH mieGtinTri
   RecUnlock()

   RETURN NIL

[Itamar M. Lins Jr.]

Ola!
Apesar das limitações do Flagship e o uso de versões defasadas do Linux, observo que este sistema sobrevive por causa das boas qualidades do LINUX/Unix. Se não fosse o acesso tão rápido e sem problemas via PUTYY/Term etc... ao sistema, se fosse atualizar para versões novas Win10 etc... Não seria mais viável continuar com esse sistema.
Fico pensando que são mais de 100 usuários... imaginando o sistema compilado com Harbour/LetoDbf e as estações podendo usar Windows Hwgui/Minigui/QtContribs etc... Apache/Java... tudo misturado e com DBF sem mexer no velho e usando novas tecnologias. Somar recursos ao invés de entrar em algum labirinto sem saída e ficando refém de alguma linguagem proprietária, como estava com o Flagship.

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Por enquanto vou ficar feliz quando puder usar o Harbour.

Como eu disse antes, o Flagship usa índice proprietário.
São diversos aplicativos, que ainda não sei sobre todos, e nem sei se tem fonte de todos, e usam a mesma base de dados central.

Imagine um relatório de comissões, emitir um vendedor por vez, e ter que sair do aplicativo pra emitir cada relatório de cada vendedor.
E se entrar e sair do módulo, outro usuário já não pode usar, porque ficou arquivo preso ao usuário anterior.

Minhas etapas são:
- resolver esses problemas, que parece até aplicativo monousuário, difícil entender como tem funcionado
- fazer o mesmo com todos os aplicativos
- usar Harbour, em todos os aplicativos, tela diferente de 25 x 80 e mouse

Só aí, já é bastante trabalho, e vai causar uma revolução no uso.
Praticamente Harbour é quase a etapa final, porque TUDO tem que ser trocado de uma vez.

A partir daí vou poder usar email, PDF, talvez MySQL, etc.
Vão ser novidades a cada semana.
A parte gráfica, ou trocar pra Windows, ainda nem é importante.

[JoséQuintas]

Faltou dizer:

Para Windows, usar remoto custa uns 100 dólares POR ESTAÇÃO.
No Linux, faz parte dele.
E o uso em rede... praticamente nem tem... é Linux, é como tudo remoto, velocidade máxima.
Com certeza isso me chamou a atenção.

O mais curioso... isso seria o mesmo que Unix/Xenix... coisa mais antiga que o Clipper.
Nesse ponto, nem parece que o Windows é mais moderno....

[Itamar M. Lins Jr.]

Ola!

E o uso em rede... praticamente nem tem... é Linux, é como tudo remoto, velocidade máxima.

Não usam windows ? Todas as estações são linux ?

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Não usam windows ? Todas as estações são linux ?

Tem servidor Linux só para o aplicativo, e Windows Server para o resto.
Mas por enquanto está limitado ao Flagship, que limita a Linux, a 32 bits, a sem mouse, e a tela 25 x 80.
Só limitações.... rs