Page tree
Skip to end of metadata
Go to start of metadata

Descrição

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.

Observações

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.

Exemplos

#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

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Retorno

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"

Programa Fonte

LOJXFUNC.PRW