Exemplo do Ponto de Entrada MT103NPC.
Exemplo do Ponto de Entrada:
#Include "Protheus.ch"
/*--------------------------------------------------------------------------------------------------------------*
| P.E.: MT103NPC |
| Desc: Preenchimento de campos customizados no botão de pedido na Pré-Nota |
| Link: http://tdn.totvs.com/pages/releaseview.action?pageId=6085416 |
*--------------------------------------------------------------------------------------------------------------*/
User Function MT103NPC()
Local aArea := GetArea()
Local nPosCod := aScan(aHeader,{|x| AllTrim(Upper(x[2]))=="D1_COD" })
Local nPosCampo := aScan(aHeader,{|x| AllTrim(Upper(x[2]))=="D1_X_CAMPO" })
Local nAtual := 0
//Percorrendo os acols
For nAtual := 1 To Len(aCols)
aCols[nAtual][nPosCampo] := Posicione('SB1', 1, FWxFilial('SB1')+aCols[nAtual][nPosCod], "B1_X_CAMPO")
Next
RestArea(aArea)
Return
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;