OX100NVO - Campos Que Não Podem Sofrer Alteração na Gravação da Negociação do Fechamento

Este Ponto de Entrada é executado na rotina Fechamento de OS Modelo 2 (OFIXA100) e permite informar nomes de campos que não podem sofrer alteração no momento que é gravada a negociação do Fechamento.

#include "protheus.ch"

/*/\{Protheus.doc\} OX100NVO

Ponto de entrada que retorna os nomes dos campos da tabela VOO que não poderão sofrer motificação pela rotina que salva negociação de Fechamento de OS

@author Totvs
@since 10/09/2014
@version 1.0
@return cRetorno, Campos que não serão gravados pela rotina que salva negociação de Fechamento de OS

/*/
User Function OX100NVO()
Local cRetorno
cRetorno := "VOO_CPUSR1/VOO_CPUSR2"
Return cRetorno

Português(Brasil)

Todas

Todos

Todas

cRetorno = Nomes dos campos que não serão gravados pela rotina que salva negociação de Fechamento de OS

dbSelectArea("SX3")
dbSetOrder(1)
dbSeek("VOO")
//
cVOOnMostra := "VOO_FILIAL,VOO_NUMOSV,VOO_TIPTEM,VOO_FATPAR,VOO_LOJA,VOO_NOMCLI,VOO_TOTPEC,VOO_HRSPAD,"
cVOOnMostra += "VOO_HRSAPL,VOO_TOTSRV,VOO_SERNFI,VOO_NUMNFI,VOO_CONTCD,VOO_OK,VOO_PESQLJ,VOO_OBSMNF,VOO_LIBVOO"
//
While !SX3->(Eof()) .and. (SX3->X3_ARQUIVO=="VOO")
If X3USO(SX3->X3_USADO) .and. cNivel>=SX3->X3_NIVEL .and. !(Alltrim(SX3->X3_CAMPO) $ cVOOnMostra)
AADD(aCpoVOO,SX3->X3_CAMPO)
EndIf
&("M->"+AllTrim(SX3->X3_CAMPO)) := CriaVar(AllTrim(SX3->X3_CAMPO))
SX3->(DbSkip())
Enddo
//

// PE deve retornar os nomes dos campos que não serão alterados no momento que a negociacao é salva ...
If ExistBlock("OX100NVO")
cVOOnAltera := AllTrim(ExecBlock("OX100NVO",.F.,.F.,))
EndIf
cVOOnAltera += "/" + cVOOnMostra
//

OFIXX100.PRW