Histórico da Página

Descrição

Caso o usuário definir que seja necessária a definição quanto as opções de geração de Guia de DIFAL, Lançamento Contábil On-line e Guia de FECP, poderá defini-las com "SIM" ou "NAO" neste ponto de entrada.

Observações

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

aRet := {   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 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 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

LOJXFUNK.PRW

...

Árvore de páginas

Versões comparadas

Versão antiga 6

Nova versão Atual

Chave