Pular para o conteúdo principal

Usando ADVPL com SQL

Imagem
Por
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.
Marcadores:

Comentários

Postar um comentário

Postagens mais visitadas deste blog

Status das tabelas: SPED050 e SPED052

Por
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.
Postar um comentário
Leia mais

Variáveis públicas do Protheus

Por
Variáveis Públicas Disponíveis no Protheus: Nome Tipo Tamanho Descrição aEmpresas (A) Array contendo tantos elementos quanto forem as empresas e filiais cadastradas no sistema sendo que cada elemento se encontra no formato “EEFF” (Empresa + Filial) Ex.: “5501”. cAcesso (C, 128) Permissões de Acesso do Usuário. cEmpAnt (C, 2) Número da Empresa que está em uso no momento. Ex.: "55". cModulo (C, 3) Sigla do Módulo que está em uso no momento. Ex.: "EST" para o Módulo de Estoque. cNivel (N, 1) Nível de Acesso do Usuário podendo variar de 0 a 9 sendo que 9 indica um Administrador. cNumEmp (C, 4) Número da Empresa + Filial que está em uso no momento. Ex.: "9901". cSenha (C, 6) Senha do Usuário. cUserName (C, 15) Nome do Usuário sem brancos a direita. cUsuario (C, 533) Informações do usuário:de 001 a 006 – Senha do Usuário (6 dígitos)de 007 a 021 – Nome do Usuário (15 dígitos)de 022 a 533 – Permissões de Acesso (512 dígitos) dDataBa...
Postar um comentário
Leia mais

Teclas de Atalhos TOTVS Developer Studio (Eclipse)

Por
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...
2 comentários
Leia mais