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 |