GFEXFB22 – Gravar campo Peso/Qtde Alternativa

Características do Requisito

Linha de Produto:	Microsiga Protheus
Segmento:	Supply Chain - Logística
Módulo:	SIGAGFE

Ponto de Entrada - GFEXFB22

Descrição:

Gravar campo Peso/Qtde Alternativa

Localização:

Na função que atualiza o peso cubado dos itens

Programa Fonte:

GFEXFUNB - Cálculo de Frete

Parâmetro:

NomeTipoDescriçãoObrigatório
cAgruPcCaracterNúmero dos romaneios separados com vírgulaSim
cQueryCaracterQuery realizada para busca dos itensSim

Retorno:

Não se aplica.

User Function GFEXFB22()

Local cAgruPc := PARAMIXB[1]
Local cQuery := PARAMIXB[2]
Local lRet := .T.
Local cAliasQry := GetNextAlias()

dbUseArea( .T., "TOPCONN", TCGENQRY(,,ChangeQuery(cQuery)),cAliasQry, .F., .T.)

GW8->(dbSetOrder(2))
(cAliasQry)->(dbGoTop())
While !(cAliasQry)->(Eof())
	If GW8->(dbSeek((cAliasQry)->(GW8_FILIAL+GW8_CDTPDC+GW8_EMISDC+GW8_SERDC+GW8_NRDC+GW8_SEQ)))

		RecLock("GW8",.F.)
			GW8->GW8_QTDALT := IIF(GW8->GW8_PESOR > GW8->GW8_PESOC, GW8->GW8_PESOR, GW8->GW8_PESOC)
            
		GW8->(MsUnLock())
	EndIf
	(cAliasQry)->(dbSkip())
EndDo

(cAliasQry)->(dbCloseArea())

Return lRet