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.
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 4 6 posições.
PARAMIXPARAMIXB[1] - Código NSU Filial - G6Y_CODNSUFILIAL.
PARAMIXPARAMIXB[2] - Nome do Estabelecimento Código - G6Y_ESTABCODIGO.
PARAMIXB[3] - Tipo de Lançamento - G6Y_TPLANC.
PARAMIXB[4] - Número da ficha de remessa - G6Y_NUMFCH.
PARAMIXB[5PARAMIX[3] - Código da Autorizada Agência - G6Y_CODAUTCODAGE.PARAMIX
PARAMIXB[46] - Descrição da autorizada - Item - G6Y_ITEM.
Exemplo:
#include 'protheus.ch'
#include 'parmtype.ch'
#INCLUDE 'FWMVCDEF.CH'
User Function GT700LPE()
Local cCodNsu cFilial := PARAMIXB[1] //Código NSU
Local cEstabeleccCodigo := PARAMIXB[2]//Estabelecimento
Local cCodAut cTpLanc := PARAMIXB[3]//Cod da Autorizada
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_DOCTEF ESTABEL := cCodNsu
SE1G6Y->E1_NSUTEF := cCodNsu
SE1->E1_ESTABEL := cEstabelec //campo customizado
SE1->E1_CARTAUT := cCodAut >G6Y_ESTAB//Campo customizado
SE1->E1_ADMINIS := cDescAut cDescADM//Campo customizado
SE1->(MsUnlock())
EndIf
Return
