Histórico da Página
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: |
| ||||
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 |
| ||||||||||||||||||||||||||||||
Retorno: | Nenhum |
O usuário receberá na variável private PARAMIXB as informações necessárias para serem gravadas.
A função deve somente configurar em quais campos as informações do parâmetro serão carregadas.
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 o array passado pela variável PARAMIXB possui 2 6 posições.
PARAMIXPARAMIXB[1] - Nome do Estabelecimento Filial - G6Y_ESTABFILIAL.
PARAMIXPARAMIXB[2] - Código - G6Y_CODIGO.
PARAMIXB[3] - Descrição da autorizada Caso sejam criados apenas um ou dois campos customizados, os demais campos devem estar no Recklock da mesma forma , pois essa função sobrescreve a configuração padrão dos campos- 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 cEstabeleccFilial := PARAMIXB[1]
Local cCodigo := PARAMIXB[2]//Estabelecimento]
Local cTpLanc := PARAMIXB[3]
Local cDescAut 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 autorizadaAdministradora
DbSelectArea("SE1")
SE1->(RecLock("SE1",.F.))
SE1->E1_ESTABEL := cEstabelec G6Y->G6Y_ESTAB//campo customizado Campo customizado
SE1->E1_ADMINIS := cDescAut cDescADM//Campo customizado
SE1->(MsUnlock())
EndIf
Return