77 comentários

• Adriano Santos(usuário não autenticado)

  13 de Junho de 2008, 10:14

   

  Olá Emilene, tudo bem?

  Para você realizar calculo* entre valores de campos você deve utilizar a formula de preenchimento. Você encontra essa opção na definição do campo.

  Vou exemplificar, ok?

  Tenho três campos: CampoA, CampoB e CampoResultado. Quero que o CampoResultado seja preenchido com o valor da soma do CampoA e CampoB. Para isso, sigo os passos:

  - No modulo Criador de Base, seleciono Modificar;

  - Seleciono a base; 

  - Seleciono o campo CampoResultado e presciono a opção Modificar;

  - Na formula de preenchimento, você coloca CampoA + CampoB

  - Salva e saí do módulo de Edição.

  Obs:

  CampoA e CampoB são os apelidos dos meus campos. O "+" é a operação matemática que você deseja (sei que não precisava explicar isso, mas... : )  _ ). Alem desta operação, várias outras são possíveis. Existem formulas predefinida que preenche valores do campo automaticamente. Exemplo disso: Today() - Preenche o campo com a data de hoje.

   Na instalação do LightBase ele disponibiliza um manual. No final deste existe uma lista de operações e de formulas automáticas que você pode utilizar no seu dia a dia.

   

  -

  
  

  • Jairo Fonseca(usuário não autenticado)

    13 de Junho de 2008, 14:29

     

    Adriano,

    Conversei com a Emilene, o que ela esta precisando agora eh uma forma de realizar uma pesquisa (que neste caso sera referente a data) e imprimir automaticamente um relatorio.
     

     

    
    

    • Adriano Santos(usuário não autenticado)

      13 de Junho de 2008, 17:31

       

      Certo.
      Bom, para realizar uma pesquisa no LightBase por faixa de data, por exemplo, você deve acessar a pesquisa por sentença. Ela esta no menu Pesquisa do Ambiente de Aplicação.
      Para realizar a pesquisa você deve se basear na linha seguinte:
      >10/12/2000[data] E <12/12/2008[data]
      Onde:
      > - Operador maior que
      < - Operador menor que
      10/12/2000 – Data de inicio
      [data] – [APELIDO DO CAMPO NA BASE]
      E – Conector
      12/12/2008 – Data final
      Isso tudo significa: Me dê todos os registros da minha base que são menores que 10/12/2000 e maior que 12/12/2008, tudo isso no campo “data”.
      Digamos que vocês queira criar um “botão” e, ao clicar no mesmo, você deseja pesquisar todos os registros de hoje e imprimir. Você faz desta forma:
      - Abre o Editor de Formulário
      - Seleciona o formulário desejado
      - Na barra inferior do Editor de Formulário, existem algumas ferramentas auxiliares. Selecione um chamado Texto estático. Crie uma pequena área no seu formulário.
      - Selecione essa área no form e na barra de Atributos, selecione a opção Eventos.
      - Abra a caixinha de texto e escreva (adaptando) o seguinte código. Alguns comentários no código. Adapte à sua necessidade. Para testar o uso, abra sua aplicação no ambiente de Aplicações. Dê um duplo-clique sobre essa área e veja o resultado.
      Mais informações de como criar scripts no LBW, você pode ver no arquivo Release.txt que esta no instalador do programa.

      
      

      • Adriano Santos(usuário não autenticado)

        13 de Junho de 2008, 17:31

         

        Sub OnDoubleClick()   
         'Variaveis utilizadas no programa
         Dim sRelatorio, sPesquisa, sMensagemDePesquisa, sMensagemDeErro, sMensagemDeAcerto

         'Instancia variaveis
         sRelatorio = "Relatorio"      'Nome do relatório do LBW
         sPesquisa =  CStr(Date) + "[data]"    'String de pesquisa. No caso, pesquisa por faixa de data; [data] = apelido do campo data
         sMensagemDePesquisa = "Nenhum registro foi encontrado"
         sMensagemDeErro = "Erro na impressão do relatório: "
         sMensagemDeAcerto = "Operação realizada com sucesso."
         

         'Realiza pesquisa na base de dados
         If NOT base.RunQuery(sPesquisa) Then
                 MsgBox sMensagemDePesquisa
                 Exit Sub
         end If

         'Executa metodo de impressão.
         If base.Print() Then
          Exit Sub
         Else
          MsgBox  sMensagemDeErro &  sRelatorio
          Exit Sub  
             End If
        End Sub

        
        

        • Adriano Santos(usuário não autenticado)

          16 de Junho de 2008, 13:32

           

          Só mais uma observação. No código de impressão, informe o parâmetro do método Print. Eu escrevi errado.

          'Executa metodo de impressão.
           If base.Print(sRelatorio) Then
            Exit Sub
           Else

          
          
• Jairo Fonseca(usuário não autenticado)

  16 de Junho de 2008, 16:59

   

  Emilene,

  Subi um arquivo sobre Scripts no Light Cliente, pois o arquivo "Release.txt" possui muitas outras informacoes alem do necessario para esta tarefa, chama-se "LB Scripts Client.txt".

  Eis um link para o arquivo, espero que funcione, vamos ver:

  www.​soft​ware​publ​ico.​gov.​br/d​otlr​n/cl​ubs/​ligh​tbas​e/fi​le-s​tora​ge/d​ownl​oad/​LB+S​crip​ts+C​lien​t%2e​txt?​file​%5fi​d=45​6191​7

   

  
  
• Jairo Fonseca(usuário não autenticado)

  16 de Junho de 2008, 17:04

   

  Emilene,

  O link ta ok, porem os caracteres acentuados nao estao aparecendo corretamente.

  Teste e nos informe o resultado.