Histórico da Página

# include "protheus.ch"

User Function MAPPFTP()

	Local aTrab := PARAMIXB[1]
	Local nPos := 0
	Local nPos2 := 0
	Local cAlias := ""

	// Adicionando dados à Subseção PR da Seção DG
	nPos := Ascan(aTrab, {|x| x[1] == "PR"})

	If nPos > 0

		cAlias := aTrab[nPos][3]
		
		RecLock(cAlias ,.T.)
		(cAlias)->COD := "CODIGO-DO-PRODUTO"
		(cAlias)->TIPO := "PR"
		(cAlias)->CODNCM := "TPN12345678" // Código Siproquim 2
        (cAlias)->NOMECOM := "NOME COMERCIAL DO PRODUTO"
		(cAlias)->CONCENT := 100 // Concentração
		(cAlias)->DENSID := 99.99 // Densidade
		MsUnLock()

	EndIf

	// Adicionando dados à Subseção PC e SC da Seção DG
	nPos := Ascan(aTrab, {|x| x[1] == "PC"})
	nPos2 := Ascan(aTrab, {|x| x[1] == "SC"})

	If nPos > 0 .And. nPos2 > 0

		cAlias := aTrab[nPos][3]
		
		RecLock(cAlias ,.T.)
		(cAlias)->COD := "CODIGO-DO-PRODUTO-PAI"
		(cAlias)->TIPO := "PC"
		(cAlias)->NCMCOM := "9999.99.99" // Código NCM
        (cAlias)->NOMECOM := "NOME COMERCIAL DO PRODUTO"
		(cAlias)->DENSID := 99.99 // Densidade
		MsUnLock()

		cAlias := aTrab[nPos2][3]
		
		RecLock(cAlias ,.T.)
		(cAlias)->CODPAI := "CODIGO-DO-PRODUTO-PAI" // Atentar-se aos valores utilizados nos campos envolvidos em relacionamentos
		(cAlias)->COD := "CODIGO-DO-PRODUTO-FILHO"
		(cAlias)->TIPO := "SC"
		(cAlias)->CODNCM := "TPN12345678" // Código Siproquim 2
        (cAlias)->CONCENT := 99
		MsUnLock()

	EndIf

	// Adicionando dados à Seção UC
	nPos := Ascan(aTrab, {|x| x[1] == "UC"})

	If nPos > 0

		cAlias := aTrab[nPos][3]
		
		RecLock(cAlias ,.T.)
		(cAlias)->COD := "CODIGO-DO-PRODUTO"
		(cAlias)->NUMSEQ := "001"
		(cAlias)->TM := "510" 
		(cAlias)->TIPO := "UC"
		(cAlias)->CODNCM := "TPN12345678"
		(cAlias)->CONCENT := 100 // Concentração
		(cAlias)->DENSID := 99.99 // Densidade
		(cAlias)->QUANT := 500 // Quantidade consumida
		(cAlias)->UM := "K"
		(cAlias)->CODCONSUMO := 2 // Código Siproquim 2 para Análises Laboratoriais
		(cAlias)->OBSERVACAO := "OBSERVAÇÕES DO CONSUMO"
		(cAlias)->EMISSAO := StoD("20191127") // Data do consumo
		MsUnLock()

	EndIf


Return