Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Descrição

EICOP110 - Permite acessar os pontos de entrada da apropriação de C.F.O

Observações

Utilizado durante a rotina do menu Apropriação de C.F.O

Exemplos

Bloco de código
languagevb
themeEclipse
firstline1
linenumberstrue
User Function EICOP110()


Local cParam := If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,""))


If cParam == "ORDENA_CFO" 


// Código para
ORDENA_CFO

EndIf 

Return
 ORDENA_CFO

ElseIf cParam == "WORK_ESTRU" 
    // Código para WORK_ESTRU - Adicionar campos na estrutura da Work
	 AADD(T_DBF, {"NOVOCPO"    ,"N",13,3} )

	//Vetor com informações dos campos para criação das colunas da MsSelect com base na Work
	AADD(Tb_Campos,{"NOVOCPO","", "Campo Novo"}) 

	//Adicionar novas opções em Outras Ações
    Aadd(aButtonsPE,{"EDIT",{|| MsgInfo("Ação de um novo botão" ,"Botão")},"Novo botão"})// "Altera"

EndIf 

Return Nil

Preview

Veja também


Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates


Parâmetros


NomeTipoDescriçãoDefaultObrigatórioReferência

WORK_ESTRU

CarácterAo clicar no menu Apropriação de Cfo, o ponto de entrada é executado antes exibir a tela principal da rotina.




APOS_WORK_ESTRU

Carácter
Este ponto de entrada é executado quando os arrays T_DBF e Tb_Campos são preenchidos. Este ponto ainda é antes de exibir a tela principal da rotina do menu.




GRAVA_WORK

Carácter
Chamado antes de atribuir os valores do arquivo de trabalho chamado 'Work' e é chamado para cada item de declaração de importação. Essa Work representa os itens da declaração de importação.




ORDENA_CFO

CarácterCriação de ponto de entrada para ordenação de C.F.O na tela de apropriação.




TELA_WORK

CarácterAo selecionar um item para a apropriação de C.F.O e clicar em alterar (no menu Outras ações), este ponto de entrada é chamado antes de exibir a tela para apropriação




GRAVA_SW7

CarácterApós fechar a janela que mostra os itens da declaração de importação, os itens são gravados. Antes de gravar cada item, este ponto de entrada é chamado.




APROPRIA_CFO

CarácterEste ponto de entrada é passado antes de exibir a mensagem "Já existe CFO apropriado por regime de tributação".



OP110VldOk_CFO

CarácterPonto de entrada para determinar se o CFO é válido ou não. Atribuir a variável private lValidCFO como .T. se estiver válido. Caso contrário, atribuir .F.


Retorno

()

Eventos de chamada do Ponto de Entrada


Variáveis


NomeTipoEscopoPode AlterarDescrição

T_DBF
ArrayPrivateSimArray com os campos da work de itens da declaração de importação

Tb_Campos

ArrayPrivateSimArray de campos dos itens da declaração de importação que serão exibidos na tela

cHawb_Num

Caractér
PrivateSimNumero do processo da declaração de importação

aPLIs

ArrayPrivateSimArray onde cada elemento é o valor de SW7->W7_PGI_NUM (Nº PLI) do processo selecionado

aPOsArrayPrivateSimArray onde cada elemento é o valor de SW7->W7_PO_NUM (Nº do P.O) do processo selecionado

lValidCFOBooleanPrivateSimSe C.F.O é valido, atribuir como .T., senão atribuir como .F. Default = true. Somente utilizada no parâmetro OP110VldOk_CFO

aButtonsPEArrayPrivateSimArray para adicionar novas opções para o menu "Outras Ações".

Programa Fonte

EICOP110.PRW