Salve salve....
Ponto de entrada MT120ISC- ( Compras / Pedido de Compra )
MATA120-MT120ISC - Carga das solicitações de compras ou Contratos de Parceria das tabelas SC1 - SCs e SC3 - Contratos parceria para o pedido de compras - tabela SC7 para o Pedido de Compras / Autorização de Entrega
Function A120MovCampos
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} MT120ISC
Carga das solicitações de compras ou Contratos de Parceria das tabelas SC1 - SCs e SC3 - Contratos parceria para o pedido de compras - tabela SC7 para o Pedido de Compras / Autorização de Entrega
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function MT120ISC()
Local cFornece := cA120Forn as character
Local cLoja := cA120Loj as character
Local aArea := GetArea() as array
Local fC7XOPER := GdFieldPos('C7_XOPER') as numeric
If fC7XOPER > 0
aCols[n,fC7XOPER] := SB1->B1_XOPER
Endif
RestArea( aArea )
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima