Histórico da Página

#Include "PROTHEUS.CH"

User Function SPEDH020()
Local aRet 		:= {}
Local nPos		:= 0
Local nI		:= 1
Local cProduto 	:= PARAMIXB[1]
Local cMotInv 	:= PARAMIXB[2]

dbSelectArea("SB1")
SB1->(dbSetOrder(1))

For nI = 1 To 2 // Será enviado 2 H020 para cada H010, mudando o CST do primeiro para 010 e do segundo para 000
	If 	SB1->(MsSeek( xFilial("SB1") + cProduto))
		Aadd(aRet,{})
		nPos := Len(aRet)
		Aadd(aRet[nPos], IIF(nI == 1,"010","000")) 	// CST ICMS
		Aadd(aRet[nPos], 100.00) 					// Base de cálculo do ICMS (Unitário)
		Aadd(aRet[nPos],  18.00)  					// Valor do ICMS (Unitário)			

		If 	cMotInv == "01" // Deve possuir esse código para garantir que não será gerado mais de 1 H020 para o Motivo = 01 - No Final do Período, pois causa problemas no validador da GIA-RS
			Exit 
			Endif
		EndiF
	Next

Return aRet