Tratamento SUBPTX : Transacção desp./desconto

PURTRS : Intervenção sobre a gestão dos campos específicos

Este ponto de entrada situado no tratamento SUBPTX gestão das transacções de registo das compras, gera uma acção "PURTRS".

O objectivo desta acção é de dar a possibilidade de intervir sobre a gestão dos campos específicos tanto ao nível da afixação que o registo.

Todas as transacções de registo das compras são afectadas por este ponto de entrada, quer dizer que as chamadas de pedidos de cotação, dos pedidos de compras, das encomendas clássicas, dos contratos de encomendas abertos e das facturas.

Contexto e modo de funcionamento

Transacção

Existe uma transacção em curso para as acções INICRE, CREATION, INIMOD et MODIF.

Não existe uma transacção em curso para as acções RAZCRE, LIENS e APRES_MODIF

Ficheiro rasto

Não existe ficheiro rasto aberto.

Diferentes casos de chamada

A chamada se faz da gestão da parametrização das transacções de registo :

- pedidos de cotação

- pedidos de compras

ordens de subcontrato

- encomendas standards

- contratos de encomedas abertas

- recepções

- devoluções fornecedor

facturas

e isto para as acções seguintes do GOBJET :

- RAZCRE na entrada em criação, inicialização dos campos ecrãs

INICRE antes registo do registo, carregamnto dos campos ficheiros

CREATION após registo de registo, intervisão sobre os parãmetros campos antes a geração dos ecrãs de registo

- LIENS após cada leitura de registo, intervenções sobre os campos ecrãs após cada leitura de registo

INIMOD antes o registo do registo, carregamento dos campos ficheiros

MODIF após registo de registo, intervenção sobre os parãmetros sobre os parãmetros antes da geração dos ecrãs de registo

- APRES_MODIF após registo de cada campo, intervenção sobre os campos ecrãs

- EXEBOUT após apoio sobre um botão baixo de ecrã Apenas o botão "Validação" está interessante, nesta variável REP vale "1" (atenção é um valor alfanumérico)

Conteúdo da tabela PURTRS

Os dados contidos na tabela PURTRS afectando o armazenamento da parametrização dos registos do módulo compras modificáveis pela transacção.

Uma normalização indicada deve estar respeitada, em cada campo acrescentado num ecrã deve corresponder à criação de dados na tabela PURTRS.

Os dados acrescentados podem ser de 4 tipos diferentes :

Máscaras disponíveis

Variáveis disponíveis :

As variáveis seguintes são carregadas no mometo de chamada de acção "PURTRS".

PACTION

Acção GOBJET na origem de chamada (RAZCRE, INICRE, CREATION, LIENS, INIMOD, MODIF, APRES_MODIF, EXEBOUT).

PVERSION

Valor numérico do número da versão de X3 utilizado (ex VERSION=1.2.4 PVERSION=124).

 FJL

Tipo de transacção em curso de gestão (PTA=pedido de cotação, PTD=pedidos de compra, PTC=encomenda stadard, PTT=contratos, PTF=facturas).

 MFROM

Código de ecrã de registo (PQH0, PQH1, PSH1, POH1, POH2, POH3, POI1, POC0, POC1, POC2, POC3, PIH0, PIH1, PIH3, PIH4, SCO0, SCO1, SCO2 e SCO3)

Tabelas abertas

No quadro a seguir, a flag conteúdo significativo significa que o conteúdo está em fase com o contexto

Observações diversas

As tabelas AWINDOW, AWINPAR, AMSK, AMSKZON, AMSKACT, assim que todas as tabelas necessárias à gestão da geração de ecrãs e de tratamentos são avbertos mas não devem em caso algum ser modificados no ponto de entrada.

Exemplo de exploração do ponto de entrega

#########################################################################

# Variáveis utilizadas pelo ponto de entrada PURTRS                   #

#                                                                       #

#    PACTION    : Acção GOBJET na origem de chamada #

#PVERSION : Valor numérico do numero de versão de X3 #

#    FJL        : Tipo de transacção em curso#

#    MFROM      : Código de ecrã de registo #

#                                                                       #

#########################################################################

$ACTION

Check box ACTION

When "PURTRS"

    Check box FJL

      When "PTA"                    : # Transacção pedidos de cotação

      When "PTD"                    : # Transacção pedidos de compra

      When "PTC" : Gosub PURTRS_PTC : # Transacção encomendas

      When "PTT"                    : # Transacção contratos

      When "PTF" : # Transacção facturas

Endcase

  When Default:

Endcase

Return

#---------------------------------------------------------#

# Gestão da parametrização das zonas específicas encomendas #

# ------------------------------------------------------- #

# campo AAAA não registável no separador Gestão #

# definição afixada sobre o ecrã base POH1 #

# campo BBBB registável no separador Total#

# definidoo em registo sobre o ecrã de base POH3 #

# campo CCCC não registável no separador Linhas #

# definição afixada sobre o ecrã base POH2 #

# Campo DDDD registável no separador linhas#

# definido em registo sobre o ecrã de base POH2 #

#---------------------------------------------------------#

$PURTRS_PTC

Check box PACTION

  When "RAZCRE":

    [M:PTC1]AAAAFLG=1

    [M:PTC2]BBBBCOD=1

    [M:PTC1]CCCCFLG=1 : [M:PTC1]CCCCSCR=1 : Grizo [M:PTC1]CCCCSCR

    [M:PTC3]DDDDCOD=1 : [M:PTC3]DDDDSCR=1 : Actzo [M:PTC3]DDDDDCR

When "LIENS"

    If [M:PTC1]AAAAFLG=0 [M:PTC1]AAAAFLG=1 : Endif

    If [M:PTC2]BBBBCOD=0 [M:PTC2]BBBBCOD=1 : Endif

    If [M:PTC1]CCCCFLG=0 [M:PTC1]CCCCFLG=1 : [M:PTC1]CCCCSCR=1 : Endif

    If [M:PTC3]DDDDCOD=0 [M:PTC3]DDDDCOD=1 : [M:PTC1]DDDDSCR=1 : Endif

    If [M:PTC1]CCCCFLG=1 Grizo [M:PTC1]CCCCSCR Else Actzo [M:PTC1]CCCCSCR : Endif

    If [M:PTC3]DDDDCOD=3 Grizo [M:PTC3]DDDDSCR Else Actzo [M:PTC3]DDDDSCR : Endif

When "INICRE"

  When "INIMOD" :

  When "CREATION", "MODIF"

    Check box MFROM

      When "POH1"

        If [M:PTC1]AAAAFLG=1

          TZONE(IZON)="AAAA" : TMOD(IZON)=3 : IZON+=1

        Endif

      When "POH3"

        If [M:PTC2]BBBBCOD>1

          TZONE(IZON)="BBBB" : TMOD(IZON)=[M:PTC2]BBBBCOD : IZON+=1

        Endif

      When "POH2"

        If [M:PTC1]CCCCFLG=1

          TZONE(IZON)="CCCC" : TMOD(IZON)=3 : IZON+=1

        Endif

        If [M:PTC1]CCCCSCR>1

          TZONE(IZON)="CCCC" : TMOD(IZON)=9 : TINT(IZON)=num$([M:PTC1]CCCCSCR) : IZON+=1

        Endif

        If [M:PTC3]DDDDCOD>1

          TZONE(IZON)="DDDD" : TMOD(IZON)=[M:PTC2]DDDDCOD : IZON+=1

        Endif

        If [M:PTC3]DDDDSCR>1

          TZONE(IZON)="DDDD" : TMOD(IZON)=9 : TINT(IZON)=num$([M:PTC3]DDDDSCR) : IZON+=1

        Endif

Endcase

  When "APRES_MODIF"

    If PVERSION<130

      Case zoncou

      When "CCCCFLG"

          If val(zc)=1

[M:PTC1]CCCCSCR=1 :

            If !GIMPORT Affzo [M:PTC1]CCCCSCR : Grizo [M:PTC1]CCCCSCR: Endif

          Elsif !GIMPORT

            Actzo [M:PTC1]CCCCSCR

Endif

        When "DDDDCOD"

          If val(zc)=3

            [M:PTC3]DDDDSCR=1

            If !GIMPORT Affzo [M:PTC3]DDDDSCR : Grizo [M:PTC3]DDDDSCR : Endif

          Elsif !GIMPORT

            Actzo [M:PTC3]DDDDSCR

Endif

Endcase

Else

Check box COUZON

      When "CCCCFLG"

          If val(CZ)=1

[M:PTC1]CCCCSCR=1 :

            If !GIMPORT Affzo [M:PTC1]CCCCSCR : Grizo [M:PTC1]CCCCSCR: Endif

          Elsif !GIMPORT

            Actzo [M:PTC1]CCCCSCR

Endif

        When "DDDDCOD"

          If val(CZ)=3

            [M:PTC3]DDDDSCR=1

            If !GIMPORT Affzo [M:PTC3]DDDDSCR : Grizo [M:PTC3]DDDDSCR : Endif

          Elsif !GIMPORT

            Actzo [M:PTC3]DDDDSCR

Endif

Endcase

Endif

Endcase

Return

PURTRSWIN : Intervenção sobre as janelas geradas

Este ponto de entrada afecta a gestão das transacções de registo das compras. É comum às trasacções de pedidos de cotação, pedidos de compra, encomendas, encomendas abertas, recepções, devoluções e facturas.

Permite modificar a janela gerada pela transacção, nomeadamente para suprimir um separador específico.

Este ponto de entrada está situado no tratamento SUBPTX

Contexto e modo de funcionamento

Transacção

Existe uma transacção em curso. A variável GOK está utilizada e testada. Ela foi inicializada a 1. Ela pode ser posicionada a 0 se deseja abandonar a transacção.

Ficheiro rasto

Não existe ficheiro rasto aberto.

Diferentes casos de chamada

 É chamado nas acções CREATION,  MODIF,  ANNULE nos tratamentos :

-          SUBPTA : Transacções de pedidos de cotação

-          SUBPTD : Transacções pedidos de compra

- SUBPTE : Transacções ordens de sub-contrato

-          SUBPTC : Transacções encomendas

- SUBPTT : Transacções encomedas abertas

-          SUBPTR : Transacções recepções

-          SUBPTN : Transacções devoluções fornecedores

 -         SUBPTF : Transacções facturas de compra

Máscaras disponíveis

Variáveis disponíveis :

Dispomos das variáveis seguintes para definir o tratamento a efectuar:

[F :AWI]                          A classe [F:AWI] está carregada e pode ser modificada se se deseja intervir sobre a janela gerada.

[F :PTR]PTRTYP         Tipo de transacção

[F :PTR]PTRNUM        Código transacção

WINREF                        Nome da janela de referência

                                      ="O"+Nome do objecto ( "PQH", "PSH", "POH", "POC", "PTH", "PNH", "PIH", "SCO"  )

NOMWIN                       Nome da janela gerada por esta transacção

                                       ="WO"+Nome do objecto + Código de transacção 

Tabelas abertas

As tabelas AWINDOW, AWINPAR, AWINBRO, AWINBOUT, AMSK, AMSKPAR, AMSKZON, assim que todas as tabelas necessárias à gestão geração dos ecrãs e tratamemtos são abertos.

PURTRSAWB : Intervenção sobre os "browsers" das janelas geradas

Este ponto de entrada afecta a gestão das transacções de registo das compras. É comum às trasacções de pedidos de cotação, pedidos de compra, encomendas, encomendas abertas, recepções, devoluções e facturas.

Permite modificar os "browsers" da janela gerada pela transacção.

Este ponto de entrada está situado no tratamento SUBPTX

Contexto e modo de funcionamento

Transacção

Existe uma transacção em curso. A variável GOK está utilizada e testada. Ela foi inicializada a 1. Ela pode ser posicionada a 0 se deseja abandonar a transacção.

Ficheiro rasto

Não existe ficheiro rasto aberto.

Diferentes casos de chamada

 É chamado nas acções CREATION,  MODIF,  ANNULE nos tratamentos :

-          SUBPTA : Transacções de pedidos de cotação

-          SUBPTD : Transacções pedidos de compra

- SUBPTE : Transacções ordens de sub-contrato

-          SUBPTC : Transacções encomendas

- SUBPTT : Transacções encomedas abertas

-          SUBPTR : Transacções recepções

-          SUBPTN : Transacções devoluções fornecedores

 -         SUBPTF : Transacções facturas de compra

Máscaras disponíveis

Variáveis disponíveis :

Dispomos das variáveis seguintes para definir o tratamento a efectuar:

[F :AWB]                          A classe [F:AWB] está carregada e pode ser modificada se se deseja intervir sobre o "browser" da janela gerada.

[F :PTR]PTRTYP         Tipo de transacção

[F :PTR]PTRNUM        Código transacção

WINREF                        Nome da janela de referência

                                      ="O"+Nome do objecto ( "PQH", "PSH", "POH", "POC", "PTH", "PNH", "PIH", "SCO"  )

NOMWIN                       Nome da janela gerada por esta transacção

                                       ="WO"+Nome do objecto + Código de transacção 

Tabelas abertas

As tabelas AWINDOW, AWINPAR, AWINBRO, AWINBOUT, AMSK, AMSKPAR, AMSKZON, assim que todas as tabelas necessárias à gestão geração dos ecrãs e tratamemtos são abertos.