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.PARAMIX

PARAMIXB[3] - Código da Autorizada Tipo de Lançamento - G6Y_CODAUTTPLANC.

PARAMIXPARAMIXB[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 camposNú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 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 >G6Y_ESTAB//Campo customizado
SE1->E1_CARTAUT := cCodAut  
SE1->E1_ADMINIS := cDescAut cDescADM//Campo customizado
SE1->(MsUnlock())

EndIf

Return