Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 10

changes.mady.by.user Luciano Pereira Dos Santos

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Luciano Pereira Dos Santos

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Ajuste no ponto de entrada JA203GRV para complementar gravação das faturas.

Características do Requisito

Linha de Produto:

Microsiga Protheus®

Segmento:

Jurídico

Módulo:

SIGAPFS

Rotina:

Rotina

Nome Técnico

JURA203

Emissão de fatura

Ponto de Entrada:

JA203GRV 

País(es):

Todos

Ponto de Entrada

Descrição:

Ajuste no ponto de entrada JA203GRV para complementar gravação da fatura

ante

antes da execução dos relatórios, permitindo que as alterações possam refletir na emissão do relatório e/ou na capa da fatura.

Localização:

Módulo 77 - SIGAPFS >

Movimentaçoes / Administrativo / Clientes

Movimentações / Emissão de fatura

Eventos:

O ponto de entrada é executado

durante a montagem da View do modelo

após a emissão da fatura e antes da emissão dos relatorios.

Programa Fonte:

JURA148

JURA203 -

Clientes3Carácter

Emissão de Fatura

Parâmetros:
PosiçãoTipoDescrição
1CarácterTipo de fatura: 1 - Fatura; 2 - Minuta de Fatura; 3 - Minuta de Pré-fatura; 4 - Minuta Sócio
2Carácter
Alias da área de trabalho aberta com as faturas emitidas
Código do escritório da fatura emitida posicionada na área de trabalho
4
no momento da execução do ponto.
3CarácterCódigo do fatura fatura emitida posicionada na área de trabalho no momento da execução do ponto.
Retorno
PosiçãoValor
1Nulo

Exemplo

prático:

:


Ponto de entrada para complemento da fatura:

#INCLUDE "RWMAKE

Com uma tabela SA1Com as duas Tabelas SA1 / NUH

#INCLUDE "rwmake.ch"

#INCLUDE "PROTHEUS.ch"

User Function JA148FLDS()

Local aRetorno := {}
Local aCamposSA1 := {}

// Campos da Tabela SA1
AAdd( aCamposSA1, 'SA1' )
AAdd ( aCamposSA1, { 'A1_XYZ' , 'A1_XXY' } )

// Retorno :

AAdd(aRetorno, aCamposSA1)
Return aRetorno#INCLUDE "rwmake.ch"
#INCLUDE "PROTHEUS.ch"User Function JA148FLDS()

Local aRetorno := {}
Local aCamposSA1 := {}
Local aCamposNUH := {}

// Campos da Tabela SA1
AAdd( aCamposSA1, 'SA1' )
AAdd ( aCamposSA1, { 'A1_XYZ' , 'A1_XXY' } )

// Campos da Tabela NUH
AAdd( aCamposNUH, 'NUH' )
AAdd ( aCamposNUH, { 'NUH_XYZ' , 'NUH_XXY' } )

// Retorno :
AAdd(aRetorno, aCamposSA1)
AAdd(aRetorno, aCamposNUH)
Return aRetorno

Ajuste no ponto de entrada JA203GRV

//-------------------------------------------------------------------
/*{Protheus.doc} JA203GRV()
Ponto de entrada para complementar gravação das faturas.

Características do Requisito

Linha de Produto:

Microsiga Protheus®

Segmento:

Jurídico

Módulo:

SIGAPFS

Rotina:

Rotina

Nome Técnico

JURA203

Emissão de fatura

Ponto de Entrada:

JA203GRV 

País(es):

Todos

Ponto de Entrada

Descrição:

O

Ajuste no ponto de entrada JA203GRV para complementar gravação das faturas

ponto de entrada que permitia a inclusão, remoção e reordenação de campos da tela de cadastro de clientes ( campos obrigatórios não são contemplados ), agora é possível manter os campos desejados e o restante será tirado da tela (Apenas quando estiver no SIGAJURI, e a integração com o PFS desativada)

Localização:

Módulo 76 - SIGAJURI > Atualizações / Administrativo / Clientes

Eventos:

O ponto de entrada é executado durante a montagem da View do modelo.

Programa Fonte:

JURA148 - Clientes

Retorno

Em qualquer situação :

PosiçãoValorTipoExemplo
1Uma das Tabelas da View : SA1 / NUH / NUB / NUC / NUA / NU9 / NUD / AC8 / NZBCaracter

AAdd( aCampos, 'SA1' )

2Campos a serem incluídosArray de Caracteres

AAdd ( aCampos, { 'A1_XYZ' , 'A1_XXY' } )

3Campos a serem removidosArray de CaracteresAAdd ( aCampos, { 'A1_XYZ' , 'A1_XXY' } )
4Campos a trocar sua ordem ( independente da tabela SX3 )Arrays de Arrays de CaracteresAAdd ( aCampos,{ { 'A1_LOJA' , '01'},{ 'A1_CEP' , '02' } } )

Exemplo:

Campos da Tabela SA1
AAdd( aCamposSA1, 'SA1' )
AAdd ( aCamposSA1, { 'A1_XYZ' , 'A1_XXY' } )
AAdd ( aCamposSA1, { 'A1_XYZ' , 'A1_XXY' } )
AAdd ( aCamposSA1,{ { 'A1_LOJA' , '01'},{ 'A1_CEP' , '02' } } )

Campos da Tabela NUH
AAdd( aCamposNUH, 'NUH' )
AAdd ( aCamposNUH, { 'NUH_XYZ' , 'NUH_XXY' } )
AAdd ( aCamposNUH, { 'NUH_XYZ' , 'NUH_XXY' } )
AAdd ( aCamposNUH,{ { 'NUH_XCASO' , '01'},{ 'NUH_XTEST' , '02' } } )

Retorno :

AAdd(aRetorno, aCamposSA1)
AAdd(aRetorno, aCamposNUH)

Para utilizar o ponto de entrada para manter campos e tirar os outros :

PosiçãoValorTipoExemplo
1Uma das Tabelas da View : SA1 / NUHCaracterAAdd( aCampos, 'SA1' )
2Campos a serem mantidosArray de Caracteres AAdd ( aCampos, { 'A1_XYZ' , 'A1_XXY' } )

Exemplo:

Campos da Tabela SA1
AAdd( aCamposSA1, 'SA1' )
AAdd ( aCamposSA1, { 'A1_XYZ' , 'A1_XXY' } )

Campos da Tabela NUH

AAdd( aCamposNUH, 'NUH' )
AAdd ( aCamposNUH, { 'NUH_XYZ' , 'NUH_XXY' } )

Retorno :

AAdd(aRetorno, aCamposSA1)
AAdd(aRetorno, aCamposNUH)

Ao utilizar dessa forma, as outras tabelas que não são necessárias no SIGAJURI (exemplo: NUB / NUC / NUA / NU9), também são retiradas.

@Param PARAMIXB[1] Tipo de emissão: 1 - Fatura; 2 - Minuta de Fatura; 3 - Minuta de Pré-fatura; 4 - Minuta Sócio
@Param PARAMIXB[2] Código do escritório da fatura emitida
@Param PARAMIXB[3] Código do fatura fatura emitida


@author TOTVS
@since 28/09/2017
@version 1.0
/*/
//-------------------------------------------------------------------
User Function JA203GRV()
Local aArea := GetArea()
Local aAreaNXA := NXA->(GetArea())
Local cTipo := PARAMIXB[1] // 1 - Fatura; 2 - Minuta de Fatura; 3 - Minuta de Pré-fatura; 4 - Minuta Sócio
Local cEscrit := PARAMIXB[2] // Código do escritório da fatura emitida
Local cFatura := PARAMIXB[3] // Código do fatura fatura emitida

If cTipo == '1' //Fatura

If (NXA→(DbSeek(xFilial("NXA")+cEscrit+cFatura)))

RecLock('NXA',.F.)

NXA->NXA_TXTFAT := "Emissão da fatura alterada pelo ponto entrada JA203GRV()."
NXA->(MsUnLock())
NXA->(DbCommit())
Endif

EndIf

RestArea(aAreaNXA)
RestArea(aArea)


Return Nil

Exemplo prático:

Com uma tabela SA1Com as duas Tabelas SA1 / NUH

#INCLUDE "rwmake.ch"

#INCLUDE "PROTHEUS.ch"

User Function JA148FLDS()

Local aRetorno := {}
Local aCamposSA1 := {}

// Campos da Tabela SA1
AAdd( aCamposSA1, 'SA1' )
AAdd ( aCamposSA1, { 'A1_XYZ' , 'A1_XXY' } )

// Retorno :

AAdd(aRetorno, aCamposSA1)
Return aRetorno

#INCLUDE "rwmake.ch"

#INCLUDE "PROTHEUS.ch"

User Function JA148FLDS()

Local aRetorno := {}
Local aCamposSA1 := {}
Local aCamposNUH := {}

// Campos da Tabela SA1
AAdd( aCamposSA1, 'SA1' )
AAdd ( aCamposSA1, { 'A1_XYZ' , 'A1_XXY' } )

// Campos da Tabela NUH
AAdd( aCamposNUH, 'NUH' )
AAdd ( aCamposNUH, { 'NUH_XYZ' , 'NUH_XXY' } )

// Retorno :
AAdd(aRetorno, aCamposSA1)
AAdd(aRetorno, aCamposNUH)
Return aRetorno