| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | Operação de Faturas - JURA204 |
| País: | Brasil |
| Localização | Atualizações >> Cadastro >> Movimentações >> Operação de Faturas |
| Parâmetro | Não se aplica |
| Retorno | Não se aplica |
#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"
User Function JA204CFA()
Local aArea := GetArea()
Local aAreaNXA := NXA->(GetArea())
If !Empty(NXA->NXA_CFTADC)
NVV->(DbSetOrder(1))
If NVV->(DbSeek(xFilial('NVV')+NXA->NXA_CFTADC))
NVV->(RecLock('NVV',.F.))
NVV->NVV_SITUAC := '2'
NVV->(MsUnLock())
EndIf
EndIf
NXA->(RestArea(aAreaNXA))
RestArea(aArea)
Return Nil