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 |
cCodNsu | Caracter | Código de NSU | X |
X | cCodAut | Caracter | Código da Autorizadora do Cartão | X
| ||||||||||||||
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 serão gravadas pelo Recklock, caso os campos padrões não sejam satisfatóriosdo parâmetro serão carregadas.
o array passado pela variável PARAMIXB possui 4 2 posições.
PARAMIX[1] - Código NSU - G6Y_CODNSUPARAMIX[2] - Nome do Estabelecimento - G6Y_ESTAB
PARAMIX[3] - Código da Autorizada - G6Y_CODAUTPARAMIX[42] - 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.
Exemplo:
#include 'protheus.ch'
#include 'parmtype.ch'
User Function GT700LPE()Local cCodNsu := PARAMIXB[1] //Código NSU
Local cEstabelec:= PARAMIXB[2]//Estabelecimento
Local cCodAut := PARAMIXB[3]//Cod da Autorizada
Local cDescAut := PARAMIXB[4]//Descrição da autorizada
DbSelectArea("SE1")
SE1->(RecLock("SE1",.F.))
SE1->E1_DOCTEF := cCodNsu
SE1->E1_NSUTEF := cCodNsu
SE1->E1_ESTABEL := cEstabelec //campo customizado
SE1->E1_CARTAUT := cCodAut customizado
SE1->E1_ADMINIS := cDescAut // Campo customizado
SE1->(MsUnlock())
Return