#INCLUDE 'PROTHEUS.CH'
User Function MaAvCrPr()
Local cCodCli := ParamIxb[1] //Código do Cliente
Local cLoja := ParamIxb[2] //Código da loja
Local nValor := ParamIxb[3] //Preço da Venda
Local nMoeda := ParamIxb[4] //Moeda
Local lPedido := ParamIxb[5] //Inclusão de um pedido de venda
Local cTipoLim := ParamIxb[6] //Controle de crédito
Local lRetorno := ParamIxb[7] //Variável lógica
Local cCodigo := ParamIxb[8] //Tipo de bloqueio de crédito
Local cComplTur := ParamIxb[9] //Complemento do módulo de turismo
Local cSegTur := ParamIxb[10] //Complemento do módulo de turismo
Local lBloq := .F. //Variável lógica de retorno apontando se existe ou não bloqueio.
If cCodCli == '000001' .And. nValor >= 1000
lBloq := .T.
EndIf
Return (lBloq) |