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

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

Bloco de código

language	delphi
linenumbers	true

User Function

User Function

LJRETGUIA()


Local aRet      := {}


Local lDifal    := .T.     //

Imprime

Gera 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

    //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
*/

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

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

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 6

Chave