Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PL627BOK - Cabeçalho do Lote de Cobrança

Ponto-de-Entrada: PL627BOK - Cabeçalho do Lote de Cobrança
Versões: Todas
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
O ponto de entrada PL627BOK permite a validação das informações do cabeçalho do Lote de Cobrança, sendo chamado na validação, ao selecionar a opção “OK” do Lote de Cobrança.
Eventos

PL627BOK (<ParamIXB[1]>, <ParamIXB[2]>) --> lRet

Programa Fonte 
PLSA627.PRW
Sintaxe

PL627BOK - Cabeçalho do Lote de Cobrança ( < ParamIXB[1]> , < ParamIXB[2]> ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIXB[1] Lógico Campos obrigatórios validações OK? lRet X
ParamIXB[2] Numérico nOpc – Opção selecionada no menu 3 = Incluir X
Retorno
    lRet(logico)
  • Se a validação usuário estiver Ok
Exemplos 
User Function PL627BOK()Local lRet     := ParamIXb[1]Local nOpc     := ParamIXb[2]Local cMesEmis := "" Local cAnoEmis := ""If nOpc = 3 .And. lRet .And. !Empty(M->BDC_DTEMIS)	cMesEmis := StrZero(Month(M->BDC_DTEMIS),2)	cAnoEmis := Str(Year(M->BDC_DTEMIS),4)		If cAnoEmis+cMesEmis <> M->(BDC_ANOINI+BDC_MESINI)	     MsgStop("Parametrização incorreta na data de Emissão!")	     lRet := .F.	Endif EndifReturn lRet