Exemplo do Ponto de Entrada MT103NPC.
Exemplo do Ponto de Entrada:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | #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;