Histórico da Página

#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"

LocalUser cProduto             	Function A140IQTD()

Local cProduto  := PARAMIXB[1]
Local cUM     cUM             	:= PARAMIXB[2]
Local cSEGUM               	cSEGUM    := PARAMIXB[3]
Local nQtSEGUM          	nQtSEGUM  := PARAMIXB[4]
Local nQtdeIt     nQtdeIt        	:= PARAMIXB[5]
Local nPrcIt     nPrcIt        	:= PARAMIXB[6]
Local nTotIt               nTotIt    := PARAMIXB[7]
Local lConvUM             	lConvUM   := PARAMIXB[8]

Local cForn              cForn             := PARAMIXB[9]
Local cLoja              cLoja             := PARAMIXB[10]
Local cDoc             cDoc              := PARAMIXB[11]
Local nSerie      nSerie            := PARAMIXB[12]
Local nTipo             nTipo             := PARAMIXB[13]
Local lA5A7              lA5A7             := PARAMIXB[14]
Local oXML              oXML              := PARAMIXB[15]
Local lA140QTDPC          	:= PARAMIXB[16]
Local nQtdeItOri    nQtdeItOri        := PARAMIXB[17] 
Local nPrcItOri     nPrcItOri         := PARAMIXB[18]
Local nTotItOri     nTotItOri         := PARAMIXB[19]

Local aRet := Array(4)

    //Customização do cliente

    Alert("Passou pelo P.E A140IQTDA140QTDPC")

Return aRet