Salve salve....
Ponto de entrada MT120GOK- ( Pedido de Compra)
MAT120-MT120GOK- Tratamento no PC antes de sua contabilização
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} MT120GOK
Tratamento no PC antes de sua contabilização
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function MT120GOK()
Local cA120Num := PARAMIXB[01] as character
Local l120Inclui := PARAMIXB[02] as logical
Local l120Altera := PARAMIXB[03] as logical
Local l120Deleta := PARAMIXB[04] as logical
Local aAreaSC7 := SC7->(GetArea()) as array
Local aArea := GetArea() as array
Private nTamHeader := Len( aHeader ) as numeric
Private nTamArray := Len( aCols ) as numeric
Private fC7ITEM := GdFieldPos("C7_ITEM") as numeric
Private fC7PRODUTO := GdFieldPos("C7_PRODUTO") as numeric
Private fC7TES := GdFieldPos("C7_TES") as numeric
Private fC7QUANT := GdFieldPos("C7_QUANT") as numeric
Private fC7PRECO := GdFieldPos("C7_PRECO") as numeric
Private fC7TOTAL := GdFieldPos("C7_TOTAL") as numeric
RestArea(aAreaSC7)
RestArea(aArea)
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima