Clipper On Line • Ver Tópico - Flagship Linux

Flagship Linux

Aqui é o lugar para bater papo e trocar idéias sobre os mais variados assuntos

Moderador: Moderadores

 

Flagship Linux

Mensagempor JoséQuintas » 27 Jul 2018 19:31

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

flagship.png


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é M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Flagship Linux

Mensagempor JoséQuintas » 25 Ago 2018 11:39

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.

flagshipm.png
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Flagship Linux

Mensagempor JoséQuintas » 03 Set 2018 19:01

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.....

flagship5.png


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é M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Flagship Linux

Mensagempor JoséQuintas » 04 Set 2018 23:45

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
sistema1.png (2.79 KiB) Visualizado 2955 vezes


O Tbrowse de seleção pra array

sistema2.png


O menu com senhas de acesso

sistema3.png
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Flagship Linux

Mensagempor JoséQuintas » 04 Set 2018 23:51

A configuração de acessos

sistema4.png


o browse genérico

sistema5.png


preview de relatórios (matricial)

sistema6.png


rotinas de mensagem.

sistema7.png
sistema7.png (5.42 KiB) Visualizado 2955 vezes
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Flagship Linux

Mensagempor JoséQuintas » 05 Set 2018 00:00

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.

sistema8.png


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...

sistema9.png


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é M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Flagship Linux

Mensagempor JoséQuintas » 05 Set 2018 00:08

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é M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Flagship Linux

Mensagempor JoséQuintas » 05 Set 2018 00:13

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.

#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
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Flagship Linux

Mensagempor Itamar M. Lins Jr. » 07 Set 2018 10:52

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.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

Flagship Linux

Mensagempor JoséQuintas » 07 Set 2018 11:27

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é M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Flagship Linux

Mensagempor JoséQuintas » 07 Set 2018 12:08

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....
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Flagship Linux

Mensagempor Itamar M. Lins Jr. » 07 Set 2018 19:19

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.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

Flagship Linux

Mensagempor JoséQuintas » 08 Set 2018 19:04

Itamar M. Lins Jr. escreveu: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
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Anterior



Retornar para Bate Papo

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro