Histórico da Página

...

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

language	vb
theme	Eclipse
firstline	1
linenumbers	true

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

Nome	Tipo	Descrição	Default	Obrigatório	Referência
WORK_ESTRU	Carácter	Ao 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ácter	Criação de ponto de entrada para ordenação de C.F.O na tela de apropriação.
TELA_WORK	Carácter	Ao 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ácter	Apó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ácter	Este ponto de entrada é passado antes de exibir a mensagem "Já existe CFO apropriado por regime de tributação".
OP110VldOk_CFO	Carácter	Ponto 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

Nome	Tipo	Escopo	Pode Alterar	Descrição
T_DBF	Array	Private	Sim	Array com os campos da work de itens da declaração de importação
Tb_Campos	Array	Private	Sim	Array de campos dos itens da declaração de importação que serão exibidos na tela
cHawb_Num	Caractér	Private	Sim	Numero do processo da declaração de importação
aPLIs	Array	Private	Sim	Array onde cada elemento é o valor de SW7->W7_PGI_NUM (Nº PLI) do processo selecionado
aPOs	Array	Private	Sim	Array onde cada elemento é o valor de SW7->W7_PO_NUM (Nº do P.O) do processo selecionado
lValidCFO	Boolean	Private	Sim	Se C.F.O é valido, atribuir como .T., senão atribuir como .F. Default = true. Somente utilizada no parâmetro OP110VldOk_CFO
aButtonsPE	Array	Private	Sim	Array para adicionar novas opções para o menu "Outras Ações".

Programa Fonte

EICOP110.PRW

Árvore de páginas

Versões comparadas

Versão antiga 10

Nova versão Atual

Chave