Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Prestadores de Serviços Transporte de Passageiros

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:

SIGAGTP

Função:

GTPA901.prw  - Cadastro de Lista de Passageiros.
GTPA903.prw  - Cadastro de Apuração de contrato.
GTPXFUNC.prw - Filtro para Linhas do Contrato.

País:Brasil
Ticket:Não Há
Requisito/Story/Issue (informe o requisito relacionado) :DSERGTP-10096

02. SITUAÇÃO/REQUISITO

  • Devemos adicionar os campos nos browsers das rotinas de orçamento de contrato, orçamento de viagem especial e apuração de contratos, com os seguintes campos:
    • Código do Cliente;
    • Loja do Cliente;
    • Nome do Cliente.
  • Corrigir as seguintes consultas padrões apontadas a fim de que sejam exibidos apenas os contratos da última revisão, são elas:
  • Linhas do Contrato – Rotina Orçamento de Contrato
  • Contrato x Cliente – Rotina Apuração de Contrato
  • Consulta Específica – Rotina Lista de passageiros

03. SOLUÇÃO

  • Realizada alteração no dicionário da tabela GY0 nos campos código do cliente (GY0_CLIENT), Loja (GY0_LOJACL) e Nome do Cliente (GY0_NOMCLI) para serem apresentados no browser da rotina GTPA900 - Orçamento de Contrato:

Ajuste na SX3 – Campos

Arquivo

Campo

Ordem

Título

Relação

F3

Exibe Browse

Visual

Contexto

Inicia Browse

GY0

GY0_CLIENT

13

Cod. Cliente


SA1 

S

A

R


GY0

GY0_LOJACL

14

Loja 



S

A

R


GY0

GY0_NOMCLI

15

Nome Cliente

IIF(!INCLUI,ALLTRIM(POSICIONE("SA1",1,XFILIAL("SA1")+GY0->GY0_CLIENT+GY0->GY0_LOJACL,"A1_NOME")),"") 


S

V

V

Posicione("SA1",1,xFilial("SA1")+GY0->GY0_CLIENT+GY0->GY0_LOJACL,"A1_NOME")

  • Realizada alteração no dicionário da tabela GQR, criado o campo Nome do Cliente (GQR_NOMCLI) para ser exibido no browser da rotina GTPA903 - Apuração de Contrato:


Ajustar a SX3 – Campos

Arquivo

Campo

Ordem

Tipo

Tamanho

Decimal

Título

Descrição

Picture

Valid

Relação

F3

Valid User

CBOX

OBRIGATORIO

Exibe Browse

Visual

Contexto

Inicia Browse 

GQR

GQR_NOMCLI

05

C

40

0

Nome Cliente

Nome do Cliente

@!    

         

IIF(!INCLUI,ALLTRIM(POSICIONE("SA1",1,XFILIAL("SA1")
+GQR->GQR_CLIENT+GQR->GQR_LOJA,"A1_NOME")),"")





S

V

V

POSICIONE("SA1",1,XFILIAL("SA1")
+GQR->GQR_CLIENT+GQR->GQR_LOJA,"A1_NOME")    


  • Realizada alteração no dicionário da tabela G6R nos campos código do cliente(G6R_SA1COD), Loja(G6R_SA1LOJ) e Nome do Cliente(G6R_NMCLNT) para serem apresentados no browser da rotina GTPA600 - Orçamento de Viagem:


Ajustar a SX3 – Campos

Arquivo

Campo

Ordem

Tipo

Tamanho

Decimal

Título

Descrição

Picture

F3

Exibe Browse

Visual

Contexto

G6R

G6R_SA1COD

22

C

6

0

Cód. Cliente

Código do Cliente        

@!

SA1   

S

A

R

G6R

G6R_SA1LOJ

23

C

2

0

Lj. Cliente 

Loja do Cliente          

@!

      

S

A

R

G6R

G6R_SUSCOD

24

C

6

0

Cód Prospect

Código do Prospect       

@!

SUS   

S

A

R

G6R

G6R_SUSLOJ

25

C

2

0

Lj. Prospect

Loja do Prospect         

@!

      

S

A

R


  • Criado a função GTPGYDLIN - Filtro para Linhas do Contrato no fonte GTPXFUNC.prw para tratar o filtro da consulta Padrão GYDLIN - Linhas do Contrato dentro do GTPA900 - Orçamento de Contrato:


Ajustar a SXB – Consulta Padrão

Alias

Tipo

Sequência

Coluna

Descrição

Contém

GYDLIN

1

01

DB

Linhas do Contrato

GYD

GYDLIN

2

01

01

Nr.orc.contr + Cod L


GYDLIN

4

01

01

Cód. Linha

GYD_CODGI2

GYDLIN

4

01

02

Nome Linha

TPNomeLinh(GYD→GYD_CODGI2)

GYDLIN

4

01

03

Revisão

GYD_REVISA

GYDLIN

5

01



GYD_CODGI2

GYDLIN

6

01



#GTPGYDLIN()


  • Removido o Lookup(F3) dos campos GQ8_CODGY0 e GQ8_CODGYD de dentro do fonte GTPA901 e incluso no F3 de cada campo o cadastro de consulta padrão via dicionário:

Ajustar a SX3 – Campos

Arquivo

Campo

Título

Descrição

F3

GQ8

GQ8_CODGY0

Cód Contrato

Cód do orçamento contrato

GY0   

GQ8

GQ8_CODGYD

Cód Linha   

Código da linha          

GYD


  • Alterado a função G901BFil - Montagem da tela customizada de consulta, foi incluso a regra para trazer o número da revisão, também só exibir o último contrato da revisão. Fonte GTPA901 - Lista de passageiros.
  • Realizado a criação das funções G903BFil - Montagem da consulta padrão especifica na GY0 e G903BRFil Função de retorno da consulta padrão especifica na GY0 no Fonte GTPA903 - Apuração de Contrato para serem utilizadas na nova consulta padrão.
  • Criado a consulta padrão especifica GY0REV - Orc Contrato Revisão com as funções G903BFil e G903BRFil, para ser utilizado nas consultas dos campos Contrato De e Contrato Até do pergunte GTPA903A:

Ajustar a SXB – Consulta Padrão

Alias

Tipo

Sequência

Coluna

Descrição

Contém

GY0REV

1

01

RE

Orc Contrato Revisão

GY0

GY0REV

2

01

01

                    

G903BFil()

GY0REV

5

01

  

                    

G903BRFil()

Ajustar a SX1 – Pergunte

Grupo

Ordem

Pergunta

Tipo

Tamanho

Decimal

Objeto

Validação

Var01

Consulta Padrão

Grupo de Campos

GTPA903A

01

Cliente ?

C

6

0

G


MV_PAR01

SA1

001

GTPA903A

02

Loja ?

C

2

0

G


MV_PAR02


002

GTPA903A

03

Contrato De ?

C

15

0

G

Vazio() .Or. ExistCpo("GY0")

MV_PAR03

GY0REV


GTPA903A

04

Contrato Ate ?

C

15

0

G

NaoVazio() .And. ExistCpo("GY0")

MV_PAR04

GY0REV


GTPA903A

05

Data De ?

D

8

0

G


MV_PAR05



GTPA903A

06

Data Ate ?

D

8

0

G

(mv_par06 >= mv_par05)

MV_PAR06




Criação de relacionamento – SX9

-Tabela GQ8

Dom

Expressão Dom

CDom

Expressão CDom

GY0

GY0_NUMERO

GQ8

GQ8_CODGY0

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

  • Não há.