01. DADOS GERAIS
Produto: | TOTVS Prestadores de Serviços Terceirização |
---|---|
Linha de Produto: | Linha Protheus |
Segmento: | Serviços |
Módulo: | TOTVS Backoffice (Linha Protheus) - Gestão de serviços (SIGATEC) |
Função: | TECA850.PRW AT850ACT.PRW |
País: | Brasil |
Ticket: | Não há. |
Requisito/Story/Issue (informe o requisito relacionado) : | DSERSGS-15957 |
02. SITUAÇÃO/REQUISITO
Solicitação para que haja a possibilidade de inclusão de outros campos no Assistente de Contrato.
03. SOLUÇÃO
Criado o ponto de entrada AT850ACT que abre a possibilidade de inclusão de campos no assistente.
04. DEMAIS INFORMAÇÕES
Exemplo de utilização:
#Include 'Protheus.ch' User Function AT850ACT() Local aProposta := PARAMIXB[1][1] //Array com dados da proposta selecionada Local oPanel := PARAMIXB[2] //Objeto onde serão incluídos novos campos Local aArrayCombo:= {"SIM", "NÃO"} //Array de conteudo Combo box Local cCampoBox := "SIM" //Valor inicial do combo Local cCampoStr := "STRING" //Conteúdo do campo caracter Local dCampoData := Stod("20230322") //Conteúdo do campo data Local nCampoNum := 123456789 //Conteúdo do campo numérico //-----------------------------------------------------------// //EXEMPLO 1 CAMPO NUMÉRICO: @ 175,010; //Coordenada vertical e Horizontal em pixels / Construtor de objeto da descrição SAY "Campo Numérico" OF oPanel; //Título do da descrição do campo SIZE 200,009 PIXEL //Indica a largura e altura em pixels do objeto. @ 175,230; //Coordenada vertical e Horizontal em pixels / Construtor de objeto container do campo MsGet nCampoNum ; //"MsGet" Para numéricos e caracteres, "Combobox" para combo box PICTURE "@E 99,999,999,999.99" ; //Picture do campo (X3_PICTURE) WHEN .F.; //Se é possível editar o campo - booleano VALID .T.; //validação do campo - booleano OF oPanel SIZE 050,010 PIXEL //Indica a largura e altura em pixels do objeto. //-----------------------------------------------------------// //EXEMPLO 2 CAMPO CARACTER: @ 190,010; SAY "Campo Caracter" OF oPanel; SIZE 200,009 PIXEL @ 190,230; MsGet cCampoStr; PICTURE "@!"; WHEN .F.; VALID .T.; OF oPanel SIZE 050,010 PIXEL //-----------------------------------------------------------// //EXEMPLO 3 CAMPO COMBO BOX: @ 205,010; SAY "Campo Combo Box" OF oPanel; SIZE 200,009 PIXEL @ 205,230; Combobox cCampoBox ; ITEMS aArrayCombo; VALID .T.; OF oPanel SIZE 030,010 PIXEL //-----------------------------------------------------------// //EXEMPLO 4 CAMPO DATA: @ 220,010; SAY "Campo Data" OF oPanel; SIZE 200,009 PIXEL @ 220,230; MsGet dCampoData; WHEN .F.; VALID .T.; OF oPanel SIZE 050,010 PIXEL Return oPanel //Importante retorno do Objeto para atualização da tela
Obs.: Note que na coordenada vertical de cada campo é acrescido 15 em relação ao campo anterior, e inicia-se em 175, pois o ultimo campo da tela padrão do assistente esta na posição 160. Recomenda-se o acréscimo de 15 para seguir com o alinhamento da tela, porém é possível alterar as posições dos campos que estão sendo incluídos.
O Exemplo acima fica da seguinte forma no Assistente de Contrato:
05. ASSUNTOS RELACIONADOS
- Não há.