Histórico da Página

Descrição	Caso o

usuario

usuário definir que seja necessária a definição quanto as opções de geração de Guia de DIFAL,

Lancamento Contabil

Lançamento Contábil On-line e Guia de FECP, poderá

definilas

defini-las com "SIM" ou "NAO" neste

poto

ponto de entrada.
Observações	O retorno

deverá

deve ser um array

de tres

com quatro posições, com "SIM" ou "NAO", sendo

a posição 1 definindo

:

Posição 1: define se gera Guia de DIFAL

, posição 2 definindo se

Posição 2: define se Lançamento Contábil

Lancamento Contabil

On-line

e posição 3 definindo

Posição 3: define se gera Guia de FECP

.

Exemplos

Posição 4: define se gera Guia referente aICMS-ST

Exemplos

Bloco de código

language	delphi
linenumbers	true

User Function LJRETGUIA()
Local aRet      := {}
Local lDifal    := .T.     //Gera Guia DIFAL
Local lLancCont := .T.  //Define se o Lancamento Contabil e On-line
Local lFecpDi   := .T.    //Gera Guia FECP Difal
Local lIcmsStDi := .T.  //Gera Guia Difal ICMS-ST

/*
O retorno deve ser um array com quatro posições, com "SIM" ou "NAO", sendo:
- Posição 1: define se gera Guia de DIFAL
- Posição 2: define se Lançamento Contábil On-line
- Posição 3: define se gera Guia de FECP
- Posição 4: define se gera Guia referente a ICMS-ST
*/

aAdd( aRet, IIF(lDifal   , "SIM", "NAO" ) ) //Posição 1: define se gera Guia de DIFAL
aAdd( aRet, IIF(lLancCont, "SIM", "NAO" ) ) //Posição 2: define se Lançamento Contábil On-line
aAdd( aRet, IIF(lFecpDi  , "SIM", "NAO" ) ) //Posição 3: define se gera Guia de FECP
aAdd( aRet, IIF(lIcmsStDi, "SIM", "NAO" ) ) //Posição 4: define se gera Guia referente a ICMS-ST

Return

#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 ou Superior
Sistemas Operacionais Suportados	Todos
Compatível com as Bases de Dados	Todas
Retorno	Seu retorno deve ser um array de

3

4 posições contendo:

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

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

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

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

Programa Fonte

LOJXFUNC

LOJXFUNK.PRW

Árvore de páginas

Versões comparadas

Versão antiga 5

Nova versão Atual

Chave