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 aAreaSEA lRet As Logical Local nRecSEA As Numeric Local lArqGer As Logical Local cNomeArq As Character aAreaSEA := GetArea('SEA') Local lRet := .T. Local nRecSEA := PARAMIXB[1][1][1] // RECNO da tabela SEA Local lArqGer := PARAMIXB[1][1][2] // Se .T. arquivo gerado por nossa aplicação. Se .F. VariávelVariavel nome do arquivo estará vazia. Local 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