Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
titleEXEMPLO
linenumberstrue
collapsetrue
#INCLUDE "PROTHEUS.CH"

User Function WMSA332BVM()
Local lRet :=.T.
Local cAliasD12 := Nil
Local cMapSep := PARAMIXB[1] //MApa
	
	cAliasD12 := GetNextAlias()
	BeginSql Alias cAliasD12
		SELECT DISTINCT 1
		FROM %Table:D12% D12
		WHERE D12.D12_FILIAL = %xFilial:D12%
		AND D12.D12_MAPSEP = %Exp:cMapSep%
		AND D12.%NotDel%
	EndSql
	If (cAliasD12)->(EoF())
		lRet :=.F.
	EndIf
	(cAliasD12)->(dbCloseArea())	
Return lRet

...