Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (pereira.weslley), última alteração em 30 set, 2021


01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Fiscal


02. DESCRIÇÃO

O ponto de entrada M926VlCpNF permite criar novas validações dos campos, na digitação dos Complementos de Nota Fiscal.


03. ESPECIFICAÇÃO

  • Parâmetros: 
NomeTipoDescriçãoDefaultObrigatórioReferência
cCPOArray of RecordCampos disponíveis para novas validações


cValArray of RecordInstruções e funções de validação dos campos definidas pelo sistema


  • Retorno
NomeTipoDescriçãoDefaultObrigatórioReferência
cVal CharacterRetorna as novas validações dos campos




03.  EXEMPLO DE UTILIZAÇÃO

User Function M926VlCpNF()
	Local cCpo	:= PARAMIXB[1] // Campo do grid
	Local cVal	:= PARAMIXB[2] // Valid do campo
	
	//Complemento de Exportação
	if alltrim(cCpo) == "CDL_NUMDE"
	    if Empty(alltrim(cVal))      
			cVal := "M926ValCDLNUM(CDL_NUMDE)"   
		else      
			cVal += " .And. M926ValCDLNUM(CDL_NUMDE)"  	
		endif   
	endif   
	
	//Complemento de Ressarcimento
	if alltrim(cCpo) == "CD0_QUANT"    
		if Empty(alltrim(cVal))      
			cVal := "M926ValCD0QDE(CD0_QUANT)"  
		 else      
		 	cVal += " .And. M926ValCD0QDE(CD0_QUANT)"  	
		endif   
	endif   
	
Return cVal                     

//Funções para validação dos campos de Exportação
Function M926ValCDLNUM(CDL_NUMDE)

	if Empty(Alltrim(CDL_NUMDE)) .or. Val(CDL_NUMDE) = 0   
		Alert ("Número do Documento Incorreto")   
		return .f.
	endif

return .t.

//Funções para validação dos campos de Ressarcimento
Function M926ValCD0QDE(CD0_QUANT)

	if CD0_QUANT = 0   
		Alert ("Quantidade Incorreta!")   
		return .f.
	endif
return .t.