Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PL720COMPE - Mês e Ano da competência no momento do desbloqueio
  • Criado por Usuário desconhecido (cristiane.melo), última alteração por admin em 24 jun, 2012

Ponto-de-Entrada: PL720COMPE - Mês e Ano da competência no momento do desbloqueio
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
Para o tratamento do array, contendo  mês e ano da competência no momento do desbloqueio.
Programa Fonte
Sintaxe

PL720COMPE - Mês e Ano da competência no momento do desbloqueio ( [ aRetAux ], [ dDatpro ], [ cAnoCompet ], [ cMesCompet ] ) --> RetAux

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aRetAux Array of Record Contendo a informação do array com a data de competência atualizada de acordo com o parâmetro MV_PLMDTPB.
dDatpro Array of Record Data do processo.
cAnoCompet Array of Record Ano da competencia antes a da alteração do parâmetro MV_PLMDTPB.
cMesCompet Array of Record Mes da competencia antes a da alteração do parâmetro MV_PLMDTPB.
Retorno
    RetAux(array_of_record)
  • Contendo o mês e ano da competencia.
Exemplos 
User  Function PL720COMPE()Local aRetAux:=Paramixb[1]   // array contendo a nova competecnciaLocal dDatPro:=Paramixb[2]   Local cAnoCompet:=Paramixb[3]   Local cMesCompet:=Paramixb[4]   If Len(aRetAux) > 0  // Desbloqueio	If Val(aRetAux[4])<>Year(dDatPro)			aRetAux[4]:=Year(dDatPro)		aRetAux[5]:=Month(dDatPro)		Endif	                                                      	Endif             Return(RetAux)
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não