Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 2 minutos


01. DADOS GERAIS

Produto:

TOTVS Manufatura

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Planejamento e controle da produção (SIGAPCP)

Função:MATA650 - Cadastro de Ordem de Produção
País:Brasil


02. DESCRIÇÃO

Após a validação pelo sistema, o ponto de entrada 'A650AVALC' é acionado e permite validar a avaliação de crédito do cliente quando utiliza está opção na geração de OP por vendas.

LocalizaçãoFunction A650Comp() - Responsável por efetuar comparação dos saldos com o limite em moeda forte, retornando .T. ou .F. (.T.-> Aprovado / .F.-> Reprovado)
Parâmetros

.

NomeTipoDescriçãoObrigatório
lRetArrayRecebe um valor lógico com o resultado da avaliação de crédito feita pelo sistema: (Se receber .T., CRÉDITO OK ; Se receber .F., CRÉDITO COM PROBLEMA.)Sim

.

Retorno

.

NomeTipoDescriçãoValores
lRetLógicoDeve retornar se o crédito está OK (.T.) ou não (.F.) 

.T. - Aprovado

.F. - Reprovado

.

Observação


03. DEMAIS INFORMAÇÕES

Exemplo
#INCLUDE 'TOTVS.CH'
#INCLUDE 'PROTHEUS.CH'

User Function A650AVALC()
	Local lRet := PARAMIXB[1]

	If !lRet .And. SA1->(Found()) .And. SA1->A1_COD == '000001'    
		lRet := .T.
	EndIf
Return lRet

04. ASSUNTOS RELACIONADOS

  • Não se aplica.