PC Toledo

Amiguinhos,

O controle de contingencia deve ser usado quando o SEFAZ se torna instável, sem acesso ou a empresa está sem internet.

Durante uma urgência, a emissão da nota deve ser feita neste modelo contingenciada e no primeiro minuto do problema ter sido sanado transmitida para o portal.

Podemos ...

Tente assim ou veja no manual próprio.

// Exemplo conceitual para impressão direta
cComandos := "SIZE 100 mm, 150 mm" + CRLF + ;
"CLS" + CRLF + ;
"TEXT 10,10,""3"",0,1,1,""Exemplo Knup""" + CRLF + ;
"PRINT 1" + CRLF
nHandle := fcreate("LPT1") // Ou a porta USB mapeada
fwrite(nHandle ...

... IN aPDFMsgList
::DrawText( nLine + 42 + ( cTxt:__EnumIndex * 3 ), 20, cTxt, , ::nfontsizeNormal )
NEXT
IF nVia == 2 .AND. ! Empty( oBoleto:cPixCode )
::DrawBarcodeQRCode( nLine + 39, 128, 0.8, oBoleto:cPixCode )
ENDIF

::DrawLine( nLine + 44, 158, nLine + 44, 197 )

::DrawLine( nLine + 50 ...

Na atual tem DrawBox(), talvez seja equivalente.

Um modelo de uso, não específico de DrawBox(), é o boleto, da BoletoClass

Um outro, está com o uso de MySQL do meu aplicativo, mas seria trocar pra texto simples e/ou outra base de dados.
É com a pdfclass atual e DrawBox():


/*
PJPPEDIDOFATURA ...

Bom dia!

Estou desenhando um retangulo, gostaria de colocar as letras pretas e o fundo cinza usando o PDFClass do José Quintas.

oPDF:DrawRetangle( 9, 0, nMaxCol/4, 5.5, Nil, Nil, Nil ) //fundo cinza
oPDF:DrawText( 10, 1, "Vendedor:", Nil, 8, "Helvetica", Nil, Nil ) //letras pretas

Já procurei ...

... 18", "TED (Transferência Eletrônica Disponível)" ],
[ "19", "Programa de fidelidade, Cashback, Crédito Virtual" ],
[ "20", "PIX QRCode Estático ou Transferência" ],
[ "21", "Crédito em Loja, pago anteriormente, devolução, etc" ],
[ "22", "Pagto Eletrônico não informado, por falha de ...

Olá Pessoal,

Alguém usa ou sabe usar a função Leto_ProcessRun()? Não consigo rodar nada com ela...

Leto_ProcessRun (<cCmd>, NIL, [<@cStdOut>], [<@cStdErr>]) ==> nError

Extraído do Manual do Leto_DBF (Traduzido):

* TENHA CUIDADO COM O COMANDO <cCmd> *, pois um processo não finalizado ...

... 15 )

hb_gtInfo( HB_GTI_WINTITLE, "TEST" )
hb_gtInfo( HB_GTI_ICONFILE, "test.ico" )
hb_gtInfo( HB_GTI_FONTNAME, "Courier New" )

hb_gtInfo( HB_GTI_CODEPAGE, 255 )
hb_gtInfo( HB_GTI_ALTENTER, .T. )
hb_gtInfo( HB_GTI_RESIZEMODE, HB_GTI_RESIZEMODE_FONT )

hb_gtInfo( HB_GTI_SELECTCOPY, .T. )
hb_gtInfo ...

Olá!

... 06 13:53 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/gtqtc/gtqtc1.cpp
* contrib/gtqtc/gtqtc1.cpp
* use default GT startup code (#include "hbgtreg.h")
! removed ChildRemoved event from list of events ending resize process,
it should fix resizing problem with current WMs ...

... 06 13:53 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/gtqtc/gtqtc1.cpp
* contrib/gtqtc/gtqtc1.cpp
* use default GT startup code (#include "hbgtreg.h")
! removed ChildRemoved event from list of events ending resize process,
it should fix resizing problem with current WMs ...

... postou, só o primeiro.
Exemplo GT(Linux) na pasta /tests/gt* do Harbour tem ensinando como compilar no Linux.
Boa sorte!

/*
* demonstration/test code for changing font in X-Window GTs
*
* Copyright 2009 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
*
*/

#include "hbgtinfo.ch"

#if ! defined ...

Olá!
GTWVT é EXCLUSIVO para windows.
Use alguns dos GTs que existem no Linux.
Se usa algum ambiente gráfico então pode usar GTXWC.
Se gosta do nCurses GTCRS.
E se quer usar apenas o mínimo GTTRM

Olá!
Poste o exemplo.

// Exemplo de função para alternar
FUNCTION SetFullScreen( lFull )
IF lFull
HB_GtInfo( HB_GTI_MAXIMIZED, .F. )
HB_GtInfo( HB_GTI_ISFULLSCREEN, .F. )
HB_GtInfo( HB_GTI_ISFULLSCREEN, .T. ) // Ativa fullscreen real
// Opcional: força redraw
DispBox(0,0,MAXROW(),MAXCOL ...

... AEval( ListVen:aCols, { |oCols| oCols:nEditType := EDIT_BUTTON } )
AEval( ListVen:aCols, { |o| o:lAllowSizing := .f. } )
AEval( ListVen:aCols, { |o| o:nHeadStrAlign := AL_CENTER} )

ListVen:CreateFromCode()


https://www.xbasephp.com/mayapos1.png

https://www.xbasephp.com/mayapos2.png