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 |
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âmetrosNenhum(Nil) |
| ||||||||||||||||||||
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órios.
o array passado pela variável PARAMIXB possui 4 posições.
PARAMIX[1] - Código NSU - G6Y_CODNSU
PARAMIX[2] - Nome do Estabelecimento - G6Y_ESTAB
PARAMIX[3] - Código da Autorizada - G6Y_CODAUT
PARAMIX[4] - 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
SE1->E1_ADMINIS := cDescAut // Campo customizado
SE1->(MsUnlock())
Return
