EDT_FATOR = 0

IF EDT_F009_UNIDADE_FORN <> ""
EDT_Unidade_Origem = EDT_F009_UNIDADE_FORN
END
IF EDT_F009_UNIDADE_FORN = "" AND EDT_Unidade_Origem <> ""
EDT_F009_UNIDADE_FORN = EDT_Unidade_Origem
END

IF EDT_F009_UNIDADE_DESTINO <> "" THEN
EDT_Unidade_Destino = EDT_F009_UNIDADE_DESTINO
END
IF EDT_F009_UNIDADE_DESTINO = "" AND EDT_Unidade_Destino <> ""
EDT_F009_UNIDADE_DESTINO = EDT_Unidade_Destino
END

IF EDT_Quantidade_Origem <> "" AND EDT_Quantidade_Destino <> "" AND EDT_FATOR = 0 AND EDT_F009_FATOR = 0

EDT_FATOR = Val(EDT_Quantidade_Destino) / Val(EDT_Quantidade_Origem)
EDT_Resultado = Val(EDT_Quantidade_Origem) * Val(EDT_FATOR)
EDT_F009_FATOR = EDT_FATOR

ELSE IF EDT_Quantidade_Origem <> "" AND EDT_Quantidade_Destino <> "" AND EDT_F009_FATOR > 0

EDT_FATOR = Val(EDT_Quantidade_Destino) / Val(EDT_Quantidade_Origem)
EDT_Resultado = Val(EDT_Quantidade_Origem) * Val(EDT_F009_FATOR)
IF EDT_FATOR <> EDT_F009_FATOR
EDT_F009_FATOR = EDT_FATOR
END

END