Perguntas Workflow Orçamentos

SCK->(dbSetOrder(1), dbSeek(xFilial("SCK")+SCJ->CJ_NUM)))
		While !SCK->(EOF()) .And. SCK->CK_FILIAL == xFilial("SCK") .And. SCK->CK_NUM == SCJ->CJ_NUM
			//grava o ID do workflow

			nItem ++ //conta os itens
			MaFisAdd(SCK->CK_PRODUTO,; 					// 1-Codigo do Produto ( Obrigatorio )
			SCK->CK_TES,;					  			// 2-Codigo do TES ( Opcional )
			SCK->CK_QTDVEN,;				  					// 3-Quantidade ( Obrigatorio )
			SCK->CK_PRCVEN,;									// 4-Preco Unitario ( Obrigatorio )
			0,;							                		// 5-Valor do Desconto ( Opcional )
			"",;							  	  					// 6-Numero da NF Original ( Devolucao/Benef )
			"",;								  					// 7-Serie da NF Original ( Devolucao/Benef )
			0,;					              					// 8-RecNo da NF Original no arq SD1/SD2
			0,;							  						// 9-Valor do Frete do Item ( Opcional )
			0,;							  						// 10-Valor da Despesa do item ( Opcional )
			0,;            				  						// 11-Valor do Seguro do item ( Opcional )
			0,;							  						// 12-Valor do Frete Autonomo ( Opcional )
			SCK->CK_VALOR,;											// 13-Valor da Mercadoria ( Obrigatorio )
			0,;							  						// 14-Valor da Embalagem ( Opiconal )
			0,;		     				  						// 15-RecNo do SB1
			0) 							  						// 16-RecNo do SF4
			//icms
			nALIQICM := MaFisRet(nItem,"IT_ALIQICM")
			nValIcm  := MaFisRet(nItem,"IT_VALICM")
			nValSubTrib := MaFisRet(nItem,"IT_VALSOL")
			
			//calcula o IPI
			nValorIPI := SCK->CK_VALOR * (Posicione("SB1",1,xFilial("SB1")+SCK->CK_PRODUTO,"B1_IPI") / 100)
			//soma o total do item
			nTotIt    := SCK->CK_VALOR + nValorIPI + nValSubTrib
					 	
			//itens do orcamento
			aadd(oHtml:ValByName("it.it")      , SCK->CK_ITEM)
			aadd(oHtml:ValByName("it.cProduto"), SCK->CK_PRODUTO)
			aadd(oHtml:ValByName("it.cDesc")   , SubStr(Posicione("SB1",1,xFilial("SB1")+SCK->CK_PRODUTO,"B1_DESC"),1,38))
			aadd(oHtml:ValByName("it.cUM")     , Posicione("SB1",1,xFilial("SB1")+SCK->CK_PRODUTO,"B1_UM"))
			aadd(oHtml:ValByName("it.cTes")    , SCK->CK_TES)
			aadd(oHtml:ValByName("it.cQtdVen") , Transform(SCK->CK_QTDVEN,"@E 9,999,999"))
			aadd(oHtml:ValByName("it.cPrcVen") , Transform(SCK->CK_PRCVEN,"@E 999,999,999.99"),,,,1)
			aadd(oHtml:ValByName("it.cValor")  , Transform(SCK->CK_VALOR,"@E 999,999,999.99"))
			aadd(oHtml:ValByName("it.cPIPI")   , Transform(Posicione("SB1",1,xFilial("SB1")+SCK->CK_PRODUTO,"B1_IPI"),"@E 99.99")+"%")
			aadd(oHtml:ValByName("it.cVIPI")   , Transform(nValorIPI,"@E 999,999,999.99"))
			aadd(oHtml:ValByName("it.cVICMS")  , Transform(nValIcm,"@E 999,999,999.99"))
			aadd(oHtml:ValByName("it.cPICMS")  , Transform(nALIQICM,"@E 99.99")+"%")
			aadd(oHtml:ValByName("it.cTotItem"), Transform(nTotIt,"@E 999,999,999.99"))
			aadd(oHtml:ValByName("it.cEntreg"), SCK->CK_ENTREG)
			//soma os totais
			
			nTotalQtd := nTotalQtd     + SCK->CK_QTDVEN
			nTotalPrc := nTotalPrc     + SCK->CK_VALOR
			nTotalIPI := nTotalIPI     + nValorIPI
			nTotalICM := nTotalICM     + nValIcm
			nTotalPed := nTotalPed     + nTotIt
		
			dbSelectArea("SCK")
			dbSkip()
			
		EndDo