Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: MTVLDCOT - Valida os dados montados para análise de cotação
Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
LOCALIZAÇÃO : Function MaMontaCot - Função responsável pela montagem dos dados para a Analise de cotação.

EM QUE PONTO : O ponto se encontra no final da função e deve ser utilizado para validar os dados montados para analise da cotação, recebe como parametro o numero da cotação para que o usuario possa validar e retorna .T. para prosseguir com a analise e apresentar a Dialog da Analise ou .F. para interromper o processo.
Eventos


 

Programa Fonte 
COMXFUN.PRX
Sintaxe

MTVLDCOT - Valida os dados montados para análise de cotação ( < PARAMIXB> ) --> lRetorno

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
PARAMIXB Array of Record PARAMIXB = {cNumCot} onde, cNumCot = Numero da Cotação X
Retorno
    lRetorno(logico)
  • lRetorno = .T. continua o processo
    lRetorno = .F. interrompe o processo
Observações


 

Exemplos 
User Function MTVLDCOT()Local lRet    := .T.Local aArea   := GetArea()Local cNumCot := PARAMIXB[1]dbSelectArea('SC8')dbSetOrder(4)If MsSeek(xFilial('SC8')+cNumCot) While ( !Eof() .And. SC8->C8_FILIAL == xFilial('SC8') .And. SC8->C8_NUM == cNumCot )  If SC8->C8_FECHFOR $ ' 1'   lRet := .F.      Aviso('Atencao !!','Cotacao nao pode ser analisada pois se encontra em aberta. Existem itens que nao foram atualizados.',{'OK'},2)      Exit  Endif  dbSkip()   EndDo  Endif   RestArea(aArea)Return(lRet)