...
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#Include 'Protheus.ch'
User Function ATF060END()
Local aArea := GetArea()
Local aParam := PARAMIXB //Objeto que vem como parâmetro.
cCusto := aParam[1]:GetModel("GridFNS"):Getvalue("FNS_CCBEMD")
cItem := aParam[1]:GetModel("GridFNR"):Getvalue("FNR_ITEORI")
cCbase := aParam[1]:GetModel("GridFNR"):Getvalue("FNR_CBAORI")
dbSelectArea("SN3")
SN3->(DbSetOrder(11))//N3_FILIAL+N3_CBASE+N3_ITEM+N3_TIPO
If(SN3->(MsSeek(xFilial("SN3") + cCbase + cItem )))
RecLock("SN3",.F.)
//Centro de Custo
SN3->N3_CCUSTO := cCusto
SN3->N3_CCCORR := cCusto
SN3->N3_CCDESP := cCusto
SN3->N3_CCCDEP := cCusto
SN3->N3_CCCDES := cCusto
SN3->(MsUnlock())
EndIf
RestArea(aArea)
Return |
Criando um Artigo: Para criar o artigo do zero, preencha as devidas informações seguindo as notações em negrito e o tempo de leitura. Em seguida remova as instruções entre colchetes.
...
