Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

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

do

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:

JA148FLDSJA203GRV 

País(es):

Todos

Ponto de Entrada

Descrição:

O

Ajuste no 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)

JA203GRV para complementar gravação da fatura 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

76

77 -

SIGAJURI

SIGAPFS >

Atualizações / 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 -

ClientesRetorno

Emissão de Fatura

Parâmetros
Em qualquer situação
:
Posição
Valor
Tipo
Exemplo
Descrição
1
Uma 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.

Exemplo prático:

CarácterTipo de fatura: 1 - Fatura; 2 - Minuta de Fatura; 3 - Minuta de Pré-fatura; 4 - Minuta Sócio
2Carácter
Código do escritório da fatura emitida posicionada na área de trabalho 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:


Ponto de entrada para complemento da fatura:

#INCLUDE "RWMAKE.ch"
#INCLUDE "PROTHEUS.ch"

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

@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

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