Histórico da Página

Caso o usuario definir que seja necessária a definição quanto as opções de geração de Guia de DIFAL, Lancamento Contabil On-line e Guia de FECP, poderá definilas com "SIM" ou "NAO" neste poto de entrada.

O retorno deverá ser um array de tres posições, com "SIM" ou "NAO", sendo a posição 1 definindo se gera Guia de DIFAL, posição 2 definindo se Lancamento Contabil On-line e posição 3 definindo se gera Guia de FECP.

#include "rwmake.ch"
#INCLUDE "PROTHEUS.CH"

User Function LJRETGUIA()

Local aRet := {}
Local lDifal := .T. //Imprime Guia DIFAL
Local lLancCont := .T. //Define se o Lancamento Contabil e On-line
Local lFecpDi := .T. //Imprimr Guia Fecp Difal

MsgInfo("Definindo variavel de retorno com 3 posições, esperando dois possiveis resultados, sendo, 'SIM' e 'NAO'. ")

aRet := {IIF(lDifal , "SIM", "NAO"),; //posição 1 Define se gera Guia DIFAL
IIF(lLancCont , "SIM", "NAO"),; //posição 2 Define se sera Lancamento Contabil On-line
IIF(lFecpDi , "SIM", "NAO")} //posição 3 Define se gera Guia de FECP

Return aRet

Português(Brasil)

Microsiga_Protheus11

Todos

Todas

Seu retorno deve ser um array de 3 posições contendo:

Array[1] == "SIM" ou "NAO"

Array[2] == "SIM" ou "NAO"

Array[3] == "SIM" ou "NAO"

LOJXFUNC.PRW