Cross Segmentos - Backoffice Linha Protheus - SIGAFIN - FINA460 - Exemplo do ponto de entrada FINA460A no modelo MODELCOMMITNTTS para acrescentar informações na SE1 no titulo gerado.

Tempo aproximado para leitura: 00:05 min

Dúvida
Como adicionar informações na SE1 nos títulos que serão gerados pela liquidação?

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - Financeiro - Todas as versões.

Solução
Segue exemplo do modelo MODELCOMMITNTTS

User Function FINA460A()
 
  Local lRet           := .T.
  Local aArea        := GetArea()    // Armazena ultima area utilizada
  Local aAreaSE1  := SE1->(GetArea()) // Armazena ultima area utilizada
  Local cIdPonto   := ''
  Local oMdl
  Local nY
 
If PARAMIXB <> NIL
  cIdPonto    := PARAMIXB[2]
  If  cIdPonto == 'MODELCOMMITNTTS'
      oMdl    := PARAMIXB[1]:GETMODEL("TITGERFO2")
      For nY := 1 To oMdl:Length()
          oMdl:GoLine(nY)
          cPref        := oMdl:GetValue("FO2_PREFIX")
          cNum         := oMdl:GetValue("FO2_NUM")
          cParc        := oMdl:GetValue("FO2_PARCEL")
          cTipo        := oMdl:GetValue("FO2_TIPO")
 
          If SE1->(DbSeek(xFilial("SE1") + cPref + cNum + cParc + cTipo))
              SE1->(RecLock("SE1", .F.))


                    // CAMPOS QUE TERÃO SEU CONTEUDO ALTERADO PELO USUARIO.
                  // NESSE MOMENTO O REGISTRO NA SE1 JÁ ESTA CRIADO E
                  // ACASO ALGUMA VALIDAÇÃO DA MODEL NÃO FOR
                  // ATENDIDA A TRANSAÇÃO SERÁ DESARMADA.


                    SE1->E1_HIST := "Hist Teste"
                 
              SE1->(MsUnLock())
          Endif
      Next nY
  Endif
EndIf
 
  RestArea(aArea)
  RestArea(aAreaSE1)


Return lRet

Saiba mais

Cross Segmento - TOTVS Backoffice Linha Protheus - ADVPL - Pontos de entrada legado na Fina460

FWFormGridModel