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 » 09 Jul 2018 23:22

Recursos aumentando, e EXE diminuindo..... rs

bhp.png


Mais uma descoberta do Flagship:
SET OPENERROR OFF

Erro de abertura de arquivo, por default, aborta o programa, sem opção de teste.
Com o comando acima, fica igual Clipper/Harbour, dá pra testar com NetErr() e outros.
Sei lá qual foi o idiota que teve essa idéia pro FlagShip, o default é dando erro e abortando o programa.

E agora, no Harbour Linux, já com 40 linhas X 100 colunas, com mouse + scroll do mouse !!!
Como minhas rotinas usam o MaxRow(), MaxCol().... pelo menos algumas telas já se ajustam automático....

F2.jpg


O browse também

F3.jpg


Até mesmo em run-time, se puxar a janela com o mouse no Puty....

F4.jpg


Mas reforçando:
Isso é no HARBOUR.
O Flagship não permite mouse, e nem alterar o tamanho padrão da janela de 25X80.
Segundo o manual, não são todos os terminais que permitem isso, por isso só deixaram disponível na versão Windows.... rs

Sobre as janelas:

- Flagship Linux
- Harbour Linux
- Harbour Windows

Até que está dando certo: mesmos fontes nos 3 ambientes.
Poucas exceções, exemplo:

#ifdef FlagShip
   fs_set( "esc", 1 )
   SET OPENERROR  OFF
   SetMode( 25, 80 )
#else
   SET EVENTMASK TO INKEY_ALL - INKEY_MOVE + HB_INKEY_GTEVENT
   Set( _SET_FILECASE, HB_SET_CASE_LOWER )
   hb_gtInfo( HB_GTI_INKEYFILTER, { | nKey | MyInkeyFilter( nKey ) } )
   SetMode( 40, 100 )
#endif
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9894
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 626 vezes

Flagship Linux

Mensagempor JoséQuintas » 09 Jul 2018 23:45

Aproveitando:

É o que sempre comento aqui no fórum: deixar fontes fáceis de mexer.
Estou apenas aplicando os mesmos fontes que uso no meu aplicativo, que estão no GitHub da LIB josequintas.
AbreArquivos(), Mensagem(), FazBrowse(), etc.
Ajustei eles pra Flagship, e começando a usar.
Com o Harbour, acabei retornando a opção de mouse neles... rs
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9894
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 626 vezes

Flagship Linux

Mensagempor JoséQuintas » 27 Jul 2018 13:23

Agora que "enxerguei" um erro doido do Flagship..... rs
O erro é apenas registrado, não aparece na tela

/0 database /rede/sistema/b6300.dbf;is multiply opened in different work areas: B0500.PRG, module B0500 line 318


O mais interessante é que o erro é nesta parte:

SELECT EXPEVC


Ou seja, ele deixa abrir o mesmo arquivo em áreas diferentes, com mesmo ALIAS.
Só que na hora de usar, acusa que tem várias áreas com o mesmo nome.
Muito louco esse Flagship kkkkk

Lógico... é tudo questão de costume.
Geralmente nossas rotinas são direcionadas ao que acontece em cada compilador, então isso deixa de ser problema no momento que os fontes estão ajustados pra isso não acontecer.

Provavelmente deve acontecer o mesmo em fontes XHarbour e Harbour, onde cada um ajusta tudo conforme seu compilador.

Gostei mais ainda da minha rotina de erros... rs
Agora dá pra usar sem nem mesmo abandonar a rotina de erros original.

Está aqui:
http://www.pctoledo.com.br/forum/viewtopic.php?f=43&t=19324&p=124469&hilit=errorsys#p124469

No Linux... precisou acrescentar pra modificar as propriedades do arquivo de log pra -rw-rw-rw-
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9894
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 626 vezes

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.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9894
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 626 vezes

Flagship Linux

Mensagempor hazael » 05 Ago 2018 16:38

Experiência interessante, obrigado por compartilhar!

José, eu tenho uma idéia que poderá lhe ajudar: Na página do fabricante você pode fazer a versão trial do FlagShip e obter suporte gratuíto por até 6 meses. Isso poderá lhe ajudar a tirar dúvidas com relação ao FlagShip diretamente com eles.

Basta preencher o formulário aqui: http://www.fship.com/linux.html

Veja mais aqui também: http://www.fship.com/support.html

E o manual completo da versão 7 e 8 em formato PDF aqui: http://www.fship.com/fsman.html

De qualquer forma o manual completo vem com a versão trial.
Harbour | GTWVT | MingW | Visual Studio Code
Avatar de usuário

hazael
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 462
Data de registro: 27 Nov 2016 12:59
Curtiu: 6 vezes
Mens.Curtidas: 31 vezes

Flagship Linux

Mensagempor hazael » 24 Ago 2018 16:35

José, veja se esse manual lhe ajuda com o FlagShip: "Primeiros passos com o Visual FlagShip no Linux v.8".
O manual está em inglês mas creio que já é uma ajuda e tanto.
First-steps-VFS8-Linux.pdf
(1.48 MiB) Baixado 8 vezes
Harbour | GTWVT | MingW | Visual Studio Code
Avatar de usuário

hazael
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 462
Data de registro: 27 Nov 2016 12:59
Curtiu: 6 vezes
Mens.Curtidas: 31 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.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9894
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 626 vezes

Flagship Linux

Mensagempor hazael » 26 Ago 2018 21:05

Acho interessante a documentação, apesar de não usar o FlagShip e nem ter interesse no mesmo, mas serve de referência para o que já é usado no Harbour.
Harbour | GTWVT | MingW | Visual Studio Code
Avatar de usuário

hazael
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 462
Data de registro: 27 Nov 2016 12:59
Curtiu: 6 vezes
Mens.Curtidas: 31 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.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9894
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 626 vezes

Flagship Linux

Mensagempor hazael » 04 Set 2018 10:40

José,

Screenshot_1.jpg


Bom, mas se pelo menos estiverem pagando bem... mas creio que não...
Harbour | GTWVT | MingW | Visual Studio Code
Avatar de usuário

hazael
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 462
Data de registro: 27 Nov 2016 12:59
Curtiu: 6 vezes
Mens.Curtidas: 31 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 1318 vezes


O Tbrowse de seleção pra array

sistema2.png


O menu com senhas de acesso

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

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9894
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 626 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 1318 vezes
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9894
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 626 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.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9894
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 626 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.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9894
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 626 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.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9894
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 626 vezes

Anterior Próximo



Retornar para Bate Papo

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Faça uma doação para o forum
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro