Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
/*/{Protheus.doc} NGFEMBOL
Permite envio de e-mail dos títulos personalizados através do Novo Gestor Financeiro e Portal do cliente.
@owner TOTVS
@version P12
@since 09/06/2022
/*/
User Function NGFEMBOL() Local aAreaSEA As Array
Local lRet As Logical
Local nRecSEA As Numeric
Local lArqGer As Logical
Local cNomeArq As Character
aAreaSEA := GetArea('SEA')
lRet := .T.
nRecSEA := PARAMIXB[1][1][1] // RECNO da tabela SEA
lArqGer := PARAMIXB[1][1][2] // Se .T. arquivo gerado por nossa aplicação. Se .F. Variavel nome do arquivo estará vazia.
cNomeArq := PARAMIXB[2] // Arquivo gerado "\spool\NOMEDOARQUIVO.pdf" DbSelectArea("SEA")
SEA->(DbGoTo(nRecSEA))
If !lArqGer
cNomeArq := "Personalizado pelo cliente"
Endif
// Processo de envio e/ou geração do arquivo - Lógica conforme necessidade do cliente
// ...
// lRet := .F.
// ou
// lRet := .T.
// ....
RestArea(aAreaSEA)
Return lRet
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas