Tratamento SUBSLX : Transacção desp./desconto

SALTRS : Gerir os campos específicos

Este ponto de entrada afecta a gestão das transacções de registo das compras. É comum às transacções de orçamentos, encomendas, encomendas abertas, entregas, devoluções e facturas.

Permite gerir os campos acrescentados em específico da mesma maneira que os campos standards.

Este ponto de entrada está situado no tratamento SUBSLX.

Contexto e modo de funcionamento.

Transação

No desenrolar das acções CREATION,  MODIF,  ANNULE, LIENS, INICRE et INIMOD, existe uma transacção em curso. A variável GOK está utilizada e testada. Ela é igual a 1. Ela pode ser posicionada a 0 se se deseja abandonar a transacção.

No desenrolamento da acção APRES_MODIF, existe uma transacção em curso.

Ficheiro rasto

Não existe ficheiro rasto aberto.

Diferentes casos de chamada

É chamado nas acções CREATION,  MODIF,  ANNULE, LIENS, APRES_MODIF,  INICRE, INIMOD  par  Gosub PE_SALTRS From SUBSLX nos tratamentos:

-SUBSLQ : transacções orçamentos

-SUBSLC :transacções encomendas

- SUBSLO : transacções encomendas abertas

- SUBSLD : transacções entregas

- SUBSLR : transacções devoluções

- SUBSLI: transacções facturas

Lembrança do conteúdo da tabela SALTRS

Os dados contidos na tabela SALTRS afectam o armazenamento da parametrização dos registos do módulo vendas modiificáveis pelas transacções. Uma normalização indicada deve ser respeitada.

A um dado acréscimo num ecrã deve corresponder a criação de dados na tabela SALTRS.

Os dados acrescentados podem ser de 4 tipos diferentes.

Máscaras disponíveis

Variáveis disponíveis

Dispõe-se das variáveis seguintes para definir o tratamento a efectuar.

PACTION                  Acção standard GOBJET na origem da chamada

PVERSION                  Variável numérica do conteúdo de GVERSION

                   ( se GVERSION="1.2.4" a PVERSION=124 )

FJL                  Tipo de transacção ( SLQ= Orçamento, SLC= Encomendas, SLO=

                   Encomendas abertas, SLD= Entregas, SLR= Devoluções,

                   SLI= Facturas).

MFROM                  Código do ecrã de registo

Tabelas abertas

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

Exemplo de tratamento específico do ponto de entrada

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

# Tratamento do ponto de entrada das transacções.

# Exemplo : Acréscimo dos dados na gestão das encomendas

# -AAAA (não registável) no separador Gestão SOH1

# - BBBB (registável) no Separador Entrega SOH2

# - CCCC (não registável) no Separador Linhas     SOH4

# - DDDD (registável)     no separador Linhas    SOH4

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

Check box ACTION

 When "SALTRS"  : Gosub SALTRS

Endcase

Return

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

$SALTRS

Case FJL

 When "SLQ"      : Gosub SALTRS_SLQ : # transacção orçamento

  When "SLC" : Gosub SALTRS_SLC : # Transacção encomendas

  When "SLO" : Gosub SALTRS_SLO : # transacção encomendas abertas

  When "SLD" : Gosub SALTRS_SLD : # transacção entregas

  When "SLR" : Gosub SALTRS_SLR : # transacção devolução

  When "SLI" : Gosub SALTRS_SLI : # Transacção facturas

Endcase

Return

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

$SALTRS_SLQ

Return

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

$SALTRS_SLC

Check box PACTION

  When "CREATION", "MODIF", "ANNULE","EXEBOUT","MASSE"

    If MFROM="SOH1"

      If [M:SLC5]AAAACOD = 1  TZONE(IZON)="AAAA"

                              TMOD (IZON)=3

                              IZON +=1

      Endif

    Endif

    If MFROM="SOH2"

      If [M:SLC2]BBBBCOD > 1  TZONE(IZON)="BBBB"

                              TMOD (IZON)=[M:SLC2]BBBBCOD

                              IZON +=1

      Endif

    Endif

    If MFROM="SOH4"

      If [M:SLC5]CCCCCOD = 1  TZONE(IZON)="CCCC"

                              TMOD (IZON)=3

                              IZON +=1

      Else

        ZT="CCCCSCR" : ZM="CCCC" : Gosub TABLEAU_FICHE From SUBSLX

      Endif

      If [M:SLC3]DDDDCOD > 1  TZONE(IZON)="DDDD"

                              TMOD (IZON)=[M:SLC3]DDDDCOD

                              IZON +=1

      Endif

      If [M:SLC3]DDDDCOD = 1 | [M:SLC3]DDDDCOD = 2

        ZT="DDDDSCR" : ZM="DDDD" : Gosub TABLEAU_FICHE From SUBSLX

      Endif

    Endif

  When "APRES_MODIF"        : Gosub APRES_MODIF

  When "LIENS"              : Gosub LIENS

  When "INICRE" , "INIMOD"  : Gosub INICRE

  When Default

Endcase

Return

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

$SALTRS_SLO

Return

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

$SALTRS_SLD

Return

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

$SALTRS_SLR

Return

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

$SALTRS_SLI

Return

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

$APRES_MODIF 

# acção comum aos diferentes transacções

# acção a não desenvolver que para os dados de linha

Local Char PCOUZON : # para estocar o nóme compatível V120 e V130

If PVERSION < 130  PCOUZON=zoncou

  Else             PCOUZON=COUZON

Endif

If PCOUZON = "CCCCCOD" : Gosub CCCCCOD : Endif

If PCOUZON = "DDDDCOD" : Gosub DDDDCOD : Endif

Return

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

$LIENS 

# acção comum aos diferentes transacções

# acção a não desenvolver que para os dados de linha

Gosub CCCCCOD :

Gosub DDDDCOD

Return

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

$INICRE 

# acção comum às diferentes transacções

# acção a não desenvolver que para os dados de linha

ZONECOD="CCCCCOD"  : Gosub INICRE_SCR From SUBSLX

ZONECOD="DDDDCOD"  : Gosub INICRE_SCR From SUBSLX

Return

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

$CCCCCOD

If dim([M]CCCCCOD)>0 & dim([M]CCCCSCR)>0

  If [M]CCCCCOD=1

     [M]CCCCSCR=1

     If !GIMPORT

       If FJL="SLC" : Affzo [M:SLC5]CCCCSCR : Grizo [M:SLC5]CCCCSCR : Endif

Endif

      Else

     If !GIMPORT

       If FJL="SLC" : Actzo [M:SLC5]CCCCSCR : Endif

     Endif

  Endif

Endif

Return

#----

$DDDDCOD

If dim([M]CCCCCOD)>0 & dim([M]CCCCSCR)>0

  If [M]CCCCCOD=1

     [M]DDDDSCR=1

     If !GIMPORT

       If FJL="SLC" : Affzo [M:SLC3]DDDDSCR : Grizo [M:PTC3]DDDDSCR : Endif

     Endif

  Else

     If !GIMPORT

       If FJL="SLC" : Actzo [M:SLC3]DDDDSCR : Endif

     Endif

  Endif

Endif

Return

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

SALTRSWIN : Modificar a janela de registo

Este ponto de entrada afecta a gestão das transacções de registo das compras. É comum às transacções de orçamentos, encomendas, encomendas abertas, entregas, 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 SUBSLX.

Contexto e modo de funcionamento.

Transação

Existe uma transacção em curso. A variável GOK está utilizada e testada. Ela é igual a 1. Ela pode ser posicionada a 0 se 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 :

-SUBSLQ : transacções orçamentos

-SUBSLC :transacções encomendas

- SUBSLO : transacções encomendas abertas

- SUBSLD : transacções entregas

- SUBSLR : transacções devoluções

- SUBSLI: transacções facturas

Máscaras disponíveis

Variáveis disponíveis

Dispõe-se das variáveis seguintes para definir o tratamento a efectuar.

[F:SLT]STRTYP           Tipo de transacção

[F:SLT]STRNUM          Código transacção

FOBJ                            Nome do objecto ( "SQH", "SOH", "SOR", "SDH", "SIH", "SRH" )

WINREF                        Nome da janela de referência

                                      ="O"+Nome do objecto ( "SQH", "SOH", "SOR", "SDH", "SIH", "SRH" )

NOMWIN                       Nome da janela gerada para esta transacção

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

Tabelas abertas

As tabelas AWINDOW, AWINPAR, AREPORT, AMSK, AMSKZON, AMSKACT, assim que todas as tabelas necessárias à gestão geração dos ecrãs e tratamentos são abertos.