Usando ADVPL com SQL

Segue uma das maneiras de usar ADVPL com SQL :

user function mostrasql
oRBSFFont := tfont():new("lucida console",, -10, .t.)
cQuery := "SELECT B1_COD, B1_DESC FROM SB1010 WHERE D_E_L_E_T_=''"
cQuery := changequery(cQuery)
dbusearea(.t., "TOPCONN", tcgenqry(,,cQuery),"TMP", .f., .t.)
cProduto := ""

do while !eof()
cProduto := cProduto + (TMP->B1_COD + " " + B1_DESC + chr(10))
dbskip()
enddo

dbclosearea()

@ 0, 0 to 420, 550 dialog odJanela title "RESULTADO"
oRBSFMemo := tmultiget():new(92, 5,{uif(pcount()>0, cProduto:=u, cProduto)}, odJanela, 265, 100, oRBSFFont,,,,,.t.,,,,,,.t.)
@ 195, 241 bmpbutton type 1 action close(odJanela) activate dialog odJanela centered
return nil

• Veja também: Campos memo Protheus com ASP.

Comentários

Postagens mais visitadas deste blog

Status das tabelas: SPED050 e SPED052

STATUS DA TABELA SPED050: Status NFe (campo STATUS) : 1 = NFe Recebida. 2 = NFe Assinada. 3 = NFe com falha no schema XML. 4 = NFe transmitida. 5 = NFe com problemas. 6 = NFe autorizada. 7 = Cancelamento. Status Cancelamento/inutilização (campo STATUSCANC) : 1 = NFe Recebida. 2 = NFe Cancelada. 3 = NFe com falha de cancelamento/inutilização. Status Mail (campo STATUSMAIL) : 1 = A transmitir. 2 = Transmitido. 3 = Bloqueio de transmissão – cancelamento/inutilização. STATUS DO SPED052: 1 = Lote transmitido. 2 = Lote recebido com sucesso. 3 = Lote com erro.

Teclas de Atalhos TOTVS Developer Studio (Eclipse)

Seguem os atalhos para o TOTVS Developer Studio (Eclipse) : CTRL+H Localizar vários locais CTRL+F Localizar / substituir CTRL+K Localizar proximo resultado abaixo CTRL+SHIFT+K Localizar proximo resultado acima F11 Depurar F5 Percorre linha F6 Pula linha CTRL+F8 Trocar perspectiva CTRL+F7 Mudar visualização CTRL+F6 Navegar entre os fontes abertos CTRL+M Maximiza / miniminiza fonte CTRL+N Novo (wizard) CTRL+L Ir para linha CTRL+D Deleta toda linha CTRL+ALT+DOWN Duplica linha para baixo CTRL+ALT+UP Duplica linha para cima CTRL+SHIFT+L Apresenta lista de atalhos ALT+UP Move linha para cima ALT+DOWN Move linha para baixo CTRL+SHIFT+I Indenta o fonte CTRL+F9 Compilar CTRL+ESPAÇO...

Impressão com imagens no Protheus

Muitas vezes é necessário incluir uma imagem num relatório (uma logomarca por exemplo). Uma das maneiras de se fazer isto, é usar a classe TMSPRINTER() . O programa exemplo abaixo, ilustra bem como fazer. Este usa também a classe TFONT() (o tamanho do fonte leva o sinal de menos) : # include "PROTHEUS.CH" # include "RWMAKE.CH" user function fImprimeG() local oFont08 := tfont():New( 'Courier new' ,, -8, .t.),,; oFont09 := tfont():New( 'Courier new' ,, -9, .t.),,; oFont10 := tfont():New( 'Courier new' ,,-10, .t.) oPrint:=tmsprinter():new( "Impressao Grafica" ) oPrint:setportrait() oPrint:SetpaperSize(9) // PAPEL A4 if .not. oPrint:Setup() // MOSTRA JANELA DE CONFIGURAÇÃO DE IMPRESSAO msgalert( "IMPRESSAO CANCELADA." ) return nil endif // ESTE BLOCO PODE FICAR EM LOOP (DO WHILE, FOR..., ETC.) oPrint:StartPage() // oPrint:sayBitmap(linha, coluna, "C:\SUAPASTA\SUAIMAGEM.BMP", largura, al...

Microsig@ ADVPL

Pesquisar este blog