Linha Microsiga Protheus

Árvore de páginas

GT700LPE - Regularização de Campos do POS

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Gestão de Transporte de Passageiros

Rotina:

Rotina

Nome Técnico

GTPA700L

Tesouraria

Ponto de Entrada:

GT700LPE

Requisito/Story/Issue (informe o requisito relacionado):

 DSERGTP-3601

País(es):

TODOS

Banco(s) de Dados:

TODOS








Ponto de Entrada

Descrição:

A finalidade desse ponto de entrada é permitir que o usuário defina em quais campos customizados as informações da venda de POS serão gravadas em um título a receber (SE1).

Localização:

Atualizações/Tesouraria/Tesouraria

Eventos:

GT700LPE()------->Nil

Programa Fonte:

GTPA700L.prw

Parâmetros

NomeTipoDescriçãoObrigatório
cFilialCaracterFilial
cCodigoCaracterCódigo
cTpLancCaracterTipo de Lançamento
cNumFchCaracterNúmero da Ficha
cCodAgeCaracterCódigo da Agência
cItemCaracterItem

Retorno:

Nenhum

O usuário receberá na variável private PARAMIXB um array com as informações do índice principal da tabela G6Y, dessa forma o usuário pode buscar as informações desejadas e gravar nos campos de sua preferência.

O array passado pela variável PARAMIXB possui 6 posições.

PARAMIXB[1] - Filial - G6Y_FILIAL.

PARAMIXB[2] - Código - G6Y_CODIGO.

PARAMIXB[3] - Tipo de Lançamento - G6Y_TPLANC.

PARAMIXB[4] - Número da ficha de remessa - G6Y_NUMFCH.

PARAMIXB[5] - Código da Agência - G6Y_CODAGE.

PARAMIXB[6] - Item - G6Y_ITEM.

Exemplo:

#include 'protheus.ch'
#include 'parmtype.ch'
#INCLUDE 'FWMVCDEF.CH'

User Function GT700LPE()

Local cFilial := PARAMIXB[1]
Local cCodigo := PARAMIXB[2]
Local cTpLanc := PARAMIXB[3]
Local cNumFch := PARAMIXB[4]
Local cCodAge := PARAMIXB[5]
Local cItem := PARAMIXB[6]
Local cDescADM := ""


If G6Y->(DbSeek(cFilial+cCodigo+cTpLanc+cNumFch+cCodAge+cItem))

cDescADM := Posicione('SAE',1,xFilial('SAE') + (cAliasQry)->G6Y_CODADM, 'AE_DESC') // Descrição da Administradora

DbSelectArea("SE1")
SE1->(RecLock("SE1",.F.))
SE1->E1_ESTABEL := G6Y->G6Y_ESTAB//Campo customizado
SE1->E1_ADMINIS := cDescADM//Campo customizado
SE1->(MsUnlock())

EndIf

Return