Árvore de páginas

Versões comparadas

Chave

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

...

Local lRet := .T.
Local cNumSim := PARAMIXB[1]
Local cVerSim := PARAMIXB[2]

If Empty(AF1_TPFAT)
lRet    lRet := .F.
Endif

RecLock("AF1",.F.)
AF1_MEMOBJ := MSMM(AF1->AF1_CODOBJ,,,M->AF1_MEMOBJ,1,,,"AF1","AF1_CODOBJ")
MsUnLock()

If !lRet
MsgAlert   MsgAlert("Campo TIPO DE FATURAMENTO NAO PREENCHIDO...")
Endif

...