Histórico da Página

Informações Gerais

Objetivo

O objetivo desta especificação é detalhar sobre melhorias técnicas que serão feitas no cadastro de Layout Genérico (PLSCADLAY) para torná-lo mais versátil e mais flexível em possíveis cadastros que venham a ser criados.

Definição da Regra de Negócio

1.  Criar uma tabela para salvar a estrutura do layout, nela, será possível inserir grupos e subgrupos de campos, onde deverá ser possível mesclar campos e componentes de diferentes tabelas em um grupo.
   1. O alias da tabela será BBR (para ver os campos que essa tabela terá, consulte a parte de dicionário de dados desta especificação)
   2. Essa tabela será gravada com o componente DbTree, e a troca de nível entre os componentes será feita com botões que serão setas.
      1. Setas para cima e para baixo - Apenas movimentarão os itens para cima e para baixo.
      2. Setas para esquerda e para direita - Alterarão o nível do item.
   3. Para desenvolver a Tree consulte o fonte PLSA444.PRW, função PL444TREE, consulte também o seguinte link: http://tdn.totvs.com/x/VoRc

      1. Para usar a Tree, deve ser importado no fonte a biblioteca DbTree.ch
         Segue um exemplo da Tree com MVC, utilizando as tabelas do layout genérico:

         Bloco de código
         theme Eclipse language delphi title Exemplo de DbTree linenumbers true collapse true
         User Function MinhaTree() Local i := 0 Local j := 0 B90->(DbSetOrder(2)) B7C->(DbSetOrder(2)) B91->(DbSetOrder(1)) DEFINE DIALOG oDlg TITLE "Layout Genérico" FROM 180,180 TO 550,700 PIXEL // Cria a Tree oTree := DbTree():New(0,0,160,260,oDlg,,,.T.) // Insere itens oTree:AddItem("Layout Generico","001", "FOLDER12" ,"FOLDER13",,,1) If oTree:TreeSeek("001") If B7C->(MsSeek(xFilial("B7C")+"0003") ) i := 2 While !B7C->(EOF()) .AND. xFilial("B7C")+"0003" == B7C->(B7C_FILIAL+B7C_SEQB90) j := IIF(i == 2, 2,1) oTree:AddItem(B7C->B7C_DESCRI,StrZero (i,3), "FOLDER12","FOLDER13",,,j) If oTree:TreeSeek(StrZero (i,3)) i++ If B91->(MsSeek(xFilial("B91")+"0003"+B7C->B7C_ORDEM ) ) While !B91->(EOF()) .AND. xFilial("B91")+"0003"+B7C->B7C_ORDEM ==; B91->(B91_FILIAL+B91_SEQUEN+B91_GRUPO) oTree:AddItem(B91->B91_CAMPO,StrZero (i,3), "FOLDER12","FOLDER13",,,2) i++ B91->(DbSkip()) EndDo EndIf endif B7C->(DbSkip()) EndDo EndIf EndIf oTree:TreeSeek("001") // Retorna ao primeiro nível // Cria botões com métodos básicos /*TButton():New( 160, 002, "Seek Item 4", oDlg,{|| oTree:TreeSeek("004")}; ,40,010,,,.F.,.T.,.F.,,.F.,,,.F. ) TButton():New( 160, 052, "Enable" , oDlg,{|| oTree:SetEnable() }; ,40,010,,,.F.,.T.,.F.,,.F.,,,.F. ) TButton():New( 160, 102, "Disable" , oDlg,{|| oTree:SetDisable() }; ,40,010,,,.F.,.T.,.F.,,.F.,,,.F. ) TButton():New( 160, 152, "Novo Item", oDlg,{|| TreeNewIt() }; ,40,010,,,.F.,.T.,.F.,,.F.,,,.F. ) TButton():New( 172,02,"Dados do item", oDlg,{|| ; Alert("Cargo: "+oTree:GetCargo()+chr(13)+"Texto: "+oTree:GetPrompt(.T.)) },; 40,10,,,.F.,.T.,.F.,,.F.,,,.F. ) TButton():New( 172, 052, "Muda Texto", oDlg,{|| ; oTree:ChangePrompt("Novo Texto Item 001","001") },; 40,010,,,.F.,.T.,.F.,,.F.,,,.F. ) TButton():New( 172, 102, "Muda Imagem", oDlg,{||; oTree:ChangeBmp("LBNO","LBTIK",,,"001") },; 40,010,,,.F.,.T.,.F.,,.F.,,,.F. ) TButton():New( 172, 152, "Apaga Item", oDlg,{|| ; if(oTree:TreeSeek("006"),oTree:DelItem(),) },; 40,010,,,.F.,.T.,.F.,,.F.,,,.F. )*/ // Indica o término da contrução da Tree oTree:EndTree() ACTIVATE DIALOG oDlg CENTERED Return

Exemplo de Aplicação:

• Criar o campo “% Mínimo Espécie” (AAA_PERESP) onde o usuário informará o % que o aluno pagará em dinheiro. Esse % poderá ser alterado durante a negociação.
• Criar o campo “Referência Mínima para Cálculo” (AAA_REFCAL) onde o usuário informará um dos 4 valores disponíveis para pagamento das mensalidades  como a referência mínima para calcular o débito total do aluno.
• Criar o parâmetro MV_ACPARNE que definirá se as informações de “% Mínimo Espécie” e “Referência Mínima para Cálculo” serão obrigatórias.
• O parâmetro MV_ACPARNE deve ter as seguintes opções: 1=Obrigatório e 2=Opcional. Deve ser inicializado como opcional>.

Tabelas Utilizadas

• SE2 – Cadastro de Contas a Pagar
• FI9 – Controle de Emissão de DARF>.

Opcional

Protótipo de Tela

<Caso necessário inclua protótipos de telas com o objetivo de facilitar o entendimento do requisito, apresentar conceitos e funcionalidades do software>.

Protótipo 01

Opcional

Fluxo do Processo

<Nesta etapa incluir representações gráficas que descrevam o problema a ser resolvido e o sistema a ser desenvolvido. Exemplo: Diagrama - Caso de Uso, Diagrama de Atividades, Diagrama de Classes, Diagrama de Entidade e Relacionamento e Diagrama de Sequência>. 

Opcional

Dicionário de Dados

Arquivo ou Código do Script: AAA – Negociação Financeira / *Versao=CP.2014.12_03*/

(Opcional)

Grupo de Perguntas

<Informações utilizadas na linha Protheus>.

Nome: FINSRF2

(Opcional)

Consulta Padrão

<Informações utilizadas na linha Protheus>

Consulta: AMB

(Opcional)

Estrutura de Menu

<Informações utilizadas na linha Datasul>.

Procedimentos

Programas

Cadastro de Papéis

<O cadastro de papéis é obrigatório para os projetos de desenvolvimento FLEX a partir do Datasul 10>.

<Lembrete: o nome dos papeis em inglês descrito neste ponto do documento, devem ser homologados pela equipe de tradução>.