Clipper On Line • Busca

Foi encontrado 10748 vezes: +to

Retornar para a busca avançada

Erro compilação Minigui ultima versão 19.04

... Compiling 'test.prg'... Lines 442, Functions/Procedures 4 Generating C source output to 'C:\Users\joseq\AppData\Local\Temp\hbmk_tluke0.dir\test.c'... Done. C:/Users/joseq/AppData/Local/Temp/hbmk_tluke0.dir/test.o:test.c:(.data+0x148): ...
por JoséQuintas
23 Mai 2019 12:21
 
Fórum: MiniGui
Tópico: Erro compilação Minigui ultima versão 19.04
Respostas: 11
Exibições: 66

E o Harbour 3.4 ...

No harbour-users: Hello guys Here a problem and the solution for compile libcurl in Ubuntu. To compile Harbour 3.2/3.4 in Ubuntu 16/18 with libcurl support : This lib was changed (path) and don't updated in compile script. This partial solution is create a symbolic link ...
por JoséQuintas
22 Mai 2019 11:39
 
Fórum: Bate Papo
Tópico: E o Harbour 3.4 ...
Respostas: 0
Exibições: 34

Como matar ThRead?

... HB_GtInfo( HB_GTI_WINTITLE, ::cWindowTitle ) wvgSetAppWindow():Hide() DO WHILE ! ::lExit Eval( ::bCode ) FOR nCont = 1 TO ::nInterval hb_ReleaseCPU() IF hb_ThreadWait( ::nThreadId, 0.1, .T. ) == 1 ::lExit := .T. ENDIF Inkey(1) ...
por JoséQuintas
20 Mai 2019 18:15
 
Fórum: Harbour
Tópico: Como matar ThRead?
Respostas: 12
Exibições: 377

Exportar para excel com Abas

... + ; Hb_Eol() + Space(50) + "SUBSECRETARIA DE GESTÃO" + ; Hb_Eol() + Space(50) + "GERÊNCIA DE RECURSOS HUMANOS" FOR I:=1 TO 2 :Cells( I, 2 ):VerticalAlignment := xlVAlignTop :Rows(1):RowHeight := 60 NEXT oSheet:Range("A1:G4"):Merge() ...
por asimoes
19 Mai 2019 10:55
 
Fórum: Harbour
Tópico: Exportar para excel com Abas
Respostas: 68
Exibições: 15680

Galera blz?

... função de validação de Codigo de Barras: xBase: cCodigo := Padl(cCodigo,14,"0") nMultiplicador = 3 nSoma := 0 For nCont = 1 To 13 nSoma += ( Val(Substr(cCodigo,nCont,1)) * nMultiplicador ) nMultiplicador := iif(nMultiplicador==1,3,1) Next nSoma := nSoma - (Int(nSoma/10)*10) ...
por janio
18 Mai 2019 19:32
 
Fórum: Outras linguagens de programação
Tópico: Galera blz?
Respostas: 5
Exibições: 73

Quando penso que o Flagship vai bem....

... CASE nKey == K_F11 .OR. nKey == K_ESC n_rec := PRO1->( RecNo() ) PRO1->( dbSetOrder(1) ) FOR n_i := 1 TO Len( aItemList ) PRO1->( dbSeek( aItemList[ n_i, 1 ] ) ) PRO1->( RecLock() ) REPLACE pro1->qde_Pe WITH Max( 0, PRO1->qde_pe - ...
por JoséQuintas
17 Mai 2019 12:01
 
Fórum: Bate Papo
Tópico: Quando penso que o Flagship vai bem....
Respostas: 3
Exibições: 93

Harbour no Apache.

... an initial test for the implementation of a mod_harbour for Apache: https://github.com/FiveTechSoft/mod_harbour Please review the instructions to build it and how to install it on Apache Tests have been done on Apache for Windows only for now Free Microsoft Visual Studio Community has been ...
por Itamar M. Lins Jr.
16 Mai 2019 15:07
 
Fórum: Harbour
Tópico: Harbour no Apache.
Respostas: 8
Exibições: 217

Prazo CNPJ responsável técnico NFE/NFCE.

Itamar M. Lins Jr. escreveu:Quando termina esse prazo ?
Em AL iniciou em 07/05/2019, para os estados do AM, MS, PE, PR, SC e TO entra em vigor em 03/06/2019. Para os demais estados não tem previsão ainda, mas consulte periodicamente a SEFAZ de cada estado de interesse para saber o andamento.

Fonte: NT 2018.005 v1.30.
por Jairo Maia
16 Mai 2019 13:05
 
Fórum: Legislação Fiscal e Tributária
Tópico: Prazo CNPJ responsável técnico NFE/NFCE.
Respostas: 17
Exibições: 92

Atenção "SEM GTIN" na entrada dos produtos.

... !( StrZero( Len( cCodGtin ), 2 ) $ [08,12,13,14] ) Return lRetorno Else nPosi := ( ( 14 - Len( cCodGtin ) ) + 1 ) EndIf For x := 1 To ( Len( cCodGtin ) - 1 ) nSomatoria += ( Val( SubStr( cCodGtin, x, 1 ) ) * aAlgoritmo[ nPosi ] ) nPosi++ Next nDigito := Val( Right( LTrim( ...
por Jairo Maia
16 Mai 2019 10:06
 
Fórum: Legislação Fiscal e Tributária
Tópico: Atenção "SEM GTIN" na entrada dos produtos.
Respostas: 58
Exibições: 4522

Atenção "SEM GTIN" na entrada dos produtos.

... !( StrZero( Len( cCodGtin ), 2 ) $ [08,12,13,14] ) Return lRetorno Else nPosi := ( ( 14 - Len( cCodGtin ) ) + 1 ) EndIf For x := 1 To ( Len( cCodGtin ) - 1 ) nSomatoria += ( Val( SubStr( cCodGtin, x, 1 ) ) * aAlgoritmo[ nPosi ] ) nPosi++ Next nDigito := Val( Right( LTrim( ...
por Jairo Maia
15 Mai 2019 09:12
 
Fórum: Legislação Fiscal e Tributária
Tópico: Atenção "SEM GTIN" na entrada dos produtos.
Respostas: 58
Exibições: 4522

Atenção "SEM GTIN" na entrada dos produtos.

... !( StrZero( Len( cCodGtin ), 2 ) $ [08,12,13,14] ) Return lRetorno Else nPosi := ( ( 14 - Len( cCodGtin ) ) + 1 ) EndIf For x := 1 To ( Len( cCodGtin ) - 1 ) nSomatoria += ( Val( SubStr( cCodGtin, x, 1 ) ) * aAlgoritmo[ nPosi ] ) nPosi++ Next // nDigito := Val( Right( ...
por JSystem
14 Mai 2019 23:42
 
Fórum: Legislação Fiscal e Tributária
Tópico: Atenção "SEM GTIN" na entrada dos produtos.
Respostas: 58
Exibições: 4522

Duplo clique não funciona

O problema neste momento não está nos gets e sim no INKEY(0), que não reconhece o duplo clique. Removi os GET´s de seu exemplo e recompilei. Aqui reconheceu normalmente. Veja seu exemplo modificado: #include "std.ch" #include ...
por Jairo Maia
13 Mai 2019 10:06
 
Fórum: Harbour
Tópico: Duplo clique não funciona
Respostas: 14
Exibições: 172

Duplo clique não funciona

... // hbMk2 x PROCEDURE Main LOCAL cLName, cFName, cAddr, GetList := {} LOCAL cGetClr := "W+/B,W+/R,N/BG,GR+/BG" SET EVENTMASK TO INKEY_ALL SET COLOR TO N/BG CLS DO WHILE LastKey() != K_ESC cFName := Space(20) cLName := Space(20) cAddr := Space(50) @ 8, 20 SAY 'Nome ...
por alxsts
12 Mai 2019 15:30
 
Fórum: Harbour
Tópico: Duplo clique não funciona
Respostas: 14
Exibições: 172

Duplo clique não funciona

... Main() LOCAL nR := 5, nC := 38 SET CURSOR OFF SetMode(43, 130) CLS IF ! MPresent() ? " No mouse present !" QUIT ENDIF @ 0, 0 TO MaxRow(), MaxCol() DOUBLE @ MaxRow() - 2, 0 TO MaxRow(), 18 DOUBLE @ MaxRow() - 1, 2 SAY "Y:" @ MaxRow() - 1, 10 SAY "X:" ...
por alxsts
12 Mai 2019 00:46
 
Fórum: Harbour
Tópico: Duplo clique não funciona
Respostas: 14
Exibições: 172

Duplo clique não funciona

... setmode(25,80) HB_SETCODEPAGE("PT850") HB_LANGSELECT("PT") SET( _SET_EVENTMASK, INKEY_ALL) /* set date british set date format to "DD/MM/YYYY" set epoch to (year(date()) - 89) set century on set bell on set deleted on set scoreboard off set talk off set wrap on set ...
por ssflavio
10 Mai 2019 15:40
 
Fórum: Harbour
Tópico: Duplo clique não funciona
Respostas: 14
Exibições: 172
Próximo



Retornar para a busca avançada


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