Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Jurídico Departamentos

Linha de Produto:

Linha Protheus 

Segmento:

Juridico 

Módulo:DEPARTAMENTOS (SIGAJURI)
Função:

JURA317.prw

WSJurUtil.prw

Ticket:
Requisito/Story/Issue (informe o requisito relacionado) :DJURDEP-12410


02. SITUAÇÃO/REQUISITO

Criar um modelo de inclusão automática de solicitações de subsídios no cadastro de processos. Para filtrar os processos que acionarão o modelo, devemos ter os campos abaixo:

  • Assunto Jurídico
  • Área
  • Assunto

Devemos permitir a inclusão de uma observação também. O usuário poderá escolher um ou mais tipos de documentos que serão solicitados. Temos dois campos que são obrigatórios para a solicitação do subsídio, que é o envolvido e o prazo. O prazo é definido em dias e o envolvido podemos dar a opção de escolher o Polo Ativo principal ou Polo Passivo principal.

03. SOLUÇÃO

Criado o cadastro de modelo para solicitação de subsídios. Nele é possível selecionar os tipos de documentos que irão compor a solicitação.


Para utilizar esta funcionalidade é necessário atualizar o dicionário de dados as informações a seguir:

  • Tabela O1I -  (SX2):
X2_CHAVEO1I
X2_ARQUIVOO1I990  
X2_NOMEModelos de subsídios          
X2_ROTINAJURA317                                 
X2_MODOC
X2_MODOUNC
X2_MODOEMPC
X2_UNICOO1I_FILIAL+O1I_CODIGO
X2_CLOB2
X2_TAMFIL2



  • Campos O1I - (SX3):
X3_CAMPOO1I_FILIALO1I_CODIGOO1I_CTIPASO1I_DTIPASO1I_CAREAJO1I_DAREAJO1I_COBJETO1I_DOBJETO1I_TPENVOO1I_PRAZO O1I_OBSERV
X3_ORDEM1234567891011
X3_TIPOCCCCCCCCCNM
X3_TAMANHO21035055031001310
X3_DECIMAL00000000000
X3_TITULOFilialCódigoCod tp assTipo ass jurCod Ar jurAreaCod. AssuntoAssuntoEnv. PrincipDias PrazoObservacoes 
X3_DESCRICFilial do SistemaCódigoCod tipo de assunto juridDesc tipo assunto jurCod Area juridicaDescricao area juridica Codigo do assuntoDescricao do AssuntoEnvolvido principal Quantidade de Dias Prazo Observacoes
X3_PICTURE@!@!             





999
X3_VALID
ExistChav('O1I',M->O1I_CODIGO,1)Vazio() .OR. ExistCPO("NYB", M->O1I_CTIPAS, 1)                                                                                                                   Vazio() .OR. ExistCPO("NRB", M->O1I_CAREAJ, 1) 
Vazio() .OR. ExistCPO("NQ4", M->O1I_COBJET, 1)



X3_USADOxxxxxxxxxxx
X3_RELACAO
GETSXENUM("O1I", "O1I_CODIGO")

IF(!INCLUI,

POSICIONE("NYB",1,XFILIAL("NYB")

+ O1I→O1I_CTIPAS,"NYB_DESC"),

JurGatilho("O1I_CTIPAS","NYB"

,"NYB_DESC","O1IMASTER"))

                                                                                                

IF(!INCLUI,

POSICIONE("NRB",1,XFILIAL("NRB")

+O1I→O1I_CAREAJ,"NRB_DESC"),

JurGatilho("O1I_CAREAJ","NRB",

"NRB_DESC","O1IMASTER")) 


IIF(!INCLUI,

POSICIONE('NQ4',1,XFILIAL('NQ4')

+O1I->O1I_COBJET,'NQ4_DESC'),'')


0
X3_F3

NYB 
NRBJUR
NQ4
  

X3_RESERVXXXXXX Xxxxxxx x  xxxxxx x xxxxxx x  xxxxxx x  xxxxxx x xxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxx x  
X3_PROPRIUUUUUUUUUUU
X3_BROWSENSSSSSSSNSN
X3_VISUAL
VAVAVAVAAA
X3_CONTEXT
RRVRVRVRRR
X3_OBRIGAT







x       

X3_CBOX







1=Polo ativo principal; 2=Polo passivo principal;   
X3_INIBRW


POSICIONE("NYB",1,XFILIAL("NYB")

+O1I->O1I_CTIPAS,"NYB_DESC")


POSICIONE('NRB',1,XFILIAL('NRB')

+O1I->O1I_CAREAJ,'NRB_DESC')

    

POSICIONE('NQ4',1,XFILIAL('NQ4')+

O1I->O1I_COBJET,'NQ4_DESC')

  

X3_ORTOGRA
NNNNNNNNNN
X3_IDXFLD
NNNNNNNNNN


  • Gatilhos O1I - (SX7):
X7_CAMPOO1I_CAREAJO1I_COBJETO1I_CTIPAS
X7_SEQUENC111
X7_REGRANRB->NRB_DESC NQ4->NQ4_DESC NYB->NYB_DESC
X7_CDOMINO1I_DAREAJO1I_DOBJETO1I_DTIPAS
X7_TIPOPPP
X7_SEEKSSS
X7_ALIASNRBNQ4NYB
X7_ORDEM111
X7_CHAVEXFILIAL("NRB") + M->O1I_CAREAJXFILIAL("NQ4") + M->O1I_COBJETXFILIAL("NYB") + M->O1I_CTIPAS 
X7_PROPRIUUU


  • Tabela O1J -  (SX2):
X2_CHAVEO1J
X2_ARQUIVOO1J990  
X2_NOMETIPOS DE DOC DO MODELO DE SUBS
X2_ROTINAJURA317                                 
X2_MODOC
X2_MODOUNC
X2_MODOEMPC
X2_UNICOO1J_FILIAL+O1J_CODIGO
X2_CLOB2
X2_TAMFIL2



  • Campos O1J - (SX3):
X3_CAMPOO1J_FILIALO1J_CODIGOO1J_CTPDOCO1J_DTPDOCO1J_CRESP O1J_DRESP O1J_PRAZO O1J_CODMOD
X3_ORDEM12345678
X3_TIPOCCCCCCNC
X3_TAMANHO2103100650310
X3_TITULOFilialCódigo      Cod tp doc  Desc tp docCod resp Nome resp   Prazo doc   Cod modelo  
X3_DESCRICFilial do Sistema Código                   Cod tipo documento       Desc tipo de documentoCódigo do responsável Nome do responsável      Prazo do documento       Codigo do modelo         
X3_PICTURE@!    




999
X3_USADOx x x xx x x x 
X3_RELACAO

GETSXENUM("O1J",

"O1J_CODIGO")


IIF(!INCLUI,POSICIONE("O0L",1,XFILIAL("O0L")
+O1J->O1J_CTPDOC,"O0L_NOME  "),"")
IIF(!INCLUI,POSICIONE('RD0',1,
XFILIAL('RD0')
+O1J->O1J_CRESP,'RD0_NOME'),'')

X3_F3

O0LO0N
RD0ATV


X3_NIVEL11111111
X3_RESERVXXXXXX Xxxxxxx x        xxxxxx x        xxxxxx x xxxxxx x        xxxxxx x        xxxxxx x        xxxxxx x        
X3_PROPRIUUUUUUUU
X3_BROWSENNNNNNNN
X3_VISUAL
AAVAVAA
X3_CONTEXT
RRVRVRR
X3_VLDUSER

Vazio() .OR. ExistCPO("O0L",
 M->O1J_CTPDOC, 1)
Vazio() .Or. ((ExistCpo('RD0',M->O1J_CRESP ,1)) .AND. JURRD0('O1JMASTER','O1J_CRESP','1')
.And. JurVldRest('RD0',M->O1J_CRESP))


X3_GRPSXG33






X3_ORTOGRA
NNNNNNN
X3_IDXFLD
NNNNNNN


04. DEMAIS INFORMAÇÕES

Não se aplica.

05. ASSUNTOS RELACIONADOS

       TOTVS Jurídico Departamentos - Gerenciar Cadastros Básicos

       TOTVS Jurídico Departamentos - Cadastro de Modelos de subsídios